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Tous Apple // 



Appleworks au travail 

Par A. Gargadennec etJ.M. Jego - 188 pages - 160 FF 

Appleworks est un logiciel intégré qui permet de résoudre les problèmes courants ren- 
contrés en entreprise. Cet ouvrage est d'abord un livre d'apprentissage pour s'initier à 
Appleworks au travers d'exemples concrets. Il traite successivement des bases de don- 
nées du traitement de texte et du tableau de calcul, ceci avec une difficulté croissante. 
Fonctionne sur Apple II e, Il c et II GS. 


Clefs pour Apple II c et II e 65C02 

par Nicole Bréaud-Pouliquen - 180 pages - 145 FF 

Ce livre est un mémento qui permet d’accéder facilement aux informations telles que 
les commandes Basic ou systèmes, les caractères, les messages d’erreur, les adresses 
et jeu d'instructions de 65 C 02. Cet ouvrage est aussi un recueil d’astuces qui permet- 
tent de justifier un texte à droite, de programmer la souris, de transférer une image en 
mémoire auxiliaire... 

Un mémento indispensable à tout possesseurs d'Apple II et d'Apple II e 65C02. 


Clefs pour Apple II GS 

Deuxième édition 

par Nicole Bréaud-Pouliquen - 216 pages - 250 FF 

Cet ouvrage offre une synthèse des spécificités du matériel et des logiciels de dévelop- 
pement et permet d’accéder à des informations fondamentales concernant l'organisation 
matérielle : mémoires et ressources graphiques, microprocesseur et jeu d’instructions, 
entrées/sorties... L'auteur décrit en détail les différents logiciels de développement 
(moniteur, système APW avec son éditeuretson micro-assembleur) et donne un réper- 
toire de l'ensemble des outils de bureau. Un chapitre est consacréauxappels du Prodos 
16. Enfin, plusieurs exemples illustrent toutes les possibilités de programmation de 
l'Apple II GS. 
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Consulter les 
livres P.S.I. sur Minitel au 
36 . 15 . Tapez 01 puis 

P.S.I. 


I n p a ' em =""psVc(, C f a ' 0gU6 AS. 
O Paiement p ar r e ? Ue ' 0lnt 
. Dat ed'eJ a l Carte B leue 


gratuit 


P0M5 


Ordico 


il 


Destinée aux amateurs de mots croisés ou de Scrabble, t 
cette base de données, due à Roland Jost, permet de 
trouver un mot de longueur donnée dont on ne connaît 
que quelques lettres. 


Ordico contient plus de 15 000 mots classés en 70 
rubriques. 

Recherches et affichages sont rapides : un fichier de 

I 500 mots est chargé en moins de 10 secondes et 
exploité quasi-instantanément. 

II est bien sûr possible d’ajouter des termes aux divers 
fichiers, de créer de nouvelles rubriques. 


Voici quelques rubriques : 

1ère face : 

Acteurs, Animaux, Armes/guerres, Auteurs américains, 
Auteurs anglais, Auteurs français, Chimie, Cinéastes, 
Coureurs cyclistes, Départements/régions, 
Dieux/déesses, Familles végétales, Femmes célèbres, 
Hommes politiques, Iles, Jeux/sports, Minéraux, 
Montagnes, Musiciens jazz, Musiciens, Parties du 
corps, Peintres étrangers, Peintres français, 
Rivières/fleuves, Saints/saintes, Savants/inventeurs, 
Sculpteurs, végétaux, Vêtements, Villes 
2ème face : 

Athlètes, Boxeurs, Cantatrices, Cols, Cosmonautes, 
Coureurs automobiles, Déserts, Détroits, Doctrines 
philosophiques, Drogues, Escrimeurs, Explorateurs, 
Gymnastes, Haltérophiles, Judokas, Lutteurs, 
Maladies, Maréchaux de France, Médicaments, 
Nageurs, Patineurs, Poissons, Présidents américains, 
Skieurs, Ski nordique, Unités, Villes olympiques 


Exemples : 

Un musicien dont le nom comporte 7 lettres, les 
2ème et 5ème sont des ‘E’. Tapez : -E — E — . 
Vous obtenez instantanément : 

BENNETT DEBOECK DELEEUW GEVAERT 
LESUEUR PEDRELL PEETERS WELLESZ 

Dans les acteurs, -A E vous donnerait : 

CARETTE PALANCE RACETTE RANDONE RA YMONE 

VALLONE 

et H- : 

CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 

dans les femmes célèbres donnerait 

32 noms... 


Disquette double face et documentation 
200,00 F. Bon de commande p. 74 
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La souris ? facile ! 

il | n™ il Alain Raynaud 
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Humeur ... 
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MultiScribe 2.0 

Essai d’un traitement 
de textes en DHGR 


Bernard Tomé no 
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DhgrT ool : R 

un outil graphique 
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Un jeu de réflexion : 

Souris-Laser 
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‘patch’ de BugByter 


Michel Duroc 
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Freeware : 

un billard à l f essai 




i i'jiiw/ i ' üj [ t te i wTiwTTiî i î i;^ P cige 40 


Essai Macintosh : 

More 2 
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Minitel, Macintosh et le 11 

TPom f s 

^3| Jean-Luc Bazanegue 
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Minitel, Apple II et le 11 

TPom f s Christian Piard 
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Disquettes Pom r s 
Mac B à Mac I 
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Pour éviter les saisies fastidieuses 
et pas toujours fiables, Pom’s 
met à votre disposition des 
disquettes d'accompagnement qui 
regroupent l'ensemble des 
programmes de la revue. 


les fichiers nécessaires à sa 
création avec l'éditeur “Edit” 
(Système de développement 
68000), puis provoquer le traite- 
ment du fichier ‘T_Pom’s.Job’ 


depuis l'application “Exec” 
(toujours le Système de dévelop- 
pement 68000). 

a 


Apple // 

Pour les Apple //, deux types de 
disquettes : 

- 140 Ko, 5,25 pouces, au prix 
de 60,00 F, fichiers en format 
DOS 3.3 au recto, en format 
ProDOS au verso. L'ensemble 
des programmes de ce numéro 
est conçu pour fonctionner 
avec ProDOS ; 

- 800 Ko, 3,5 pouces pour 
Unidisk, au prix de 80,00 F, 
fichiers en format ProDOS 
seulement. 

Pom’s n'a pas encore de licence 
d'utilisation du fichier prodos 
aussi, la face ProDOS n'est pas 
bootable. À l'aide du programme 
FILER ou de la disquette 
Utilitaires Système, installer les 
fichiers prodos et basic. System 
sur la face ProDOS : la disquette 
pourra faire démarrer le système. 

Macintosh 

Si vous avez la disquette Mac 30, 
tout est simple puisque vous 
disposez des programmes prêts à 
l'emploi : ce sont des applications 
‘double-cliquables’ et autonomes. 
Les fichiers ‘source’ autorisent 
des modifications - à condition 
de détenir le ‘Système de 
développement 68000’ - de 
l'application “TPom’s”. 

Si vous n'avez pas la disquette 
Mac 30, et afin de pouvoir utiliser 
“TPom’s”, il vous faudra saisir 


Fichiers et programmes sur la disquette Apple II 

DEMO. DECOMPACT 

Programme Basic de démonstration (RUN ou — ) 

DECOMPACT.OBJ 

Routine en assembleur 65816 (BLOAD) 

DECOMPACT.S 

Source en format TEXT 

POMS1 

Image GSPaint utilisée par DEMO.DECOMPACT 

POMS2 à POMS7 

Idem, mais seulement sur disquettes 800 Ko 

DHGRTOOL 

Programme Basic à lancer par RUN ou par — 

DHGRTOOL.S 

Source en format TEXT 

DHGRTOOL.O 

Routine en asembleur 

HARD 

Routine de HardCopie 

DEMOTOOL 

Programme de démonstration des routines 

IM.HGR1 

Image FIG R utilisé pour la démonstration 

IM.HGR2 

Image HGR utilisé pour la démonstration 

IM.DHGR 

Image DHGR utilisé pour la démonstration (800 Ko seulement) 

SOURIS. LASER 

Jeu Basic (RUN ou — ) 

LASER. START 

Programme Basic de lancement du jeu en assembleur (RUN ou — ) 

LASER. MOUSE 

1er fichier lancé par LASER.START 

LASER. SBR 

2ème fichier lancé par LASER.START 

SOURIS. DEMO 

Démonstration des routines Souris (RUN ou — ) 

SOURIS. C 

Routine assembleur 

SETCURSOR.C 

Routine assembleur 

INTERFACE. C 

Routine assembleur 

INVERSION. C 

Routine assembleur 

SOURIS 

Source assembleur en format TEXT 

SETCURSOR 

Source assembleur en format TEXT 

INTERFACE 

Source assembleur en format TEXT 

INVERSION 

Source assembleur en format TEXT 

T.POMS 

Programme objet (BRUN ou — ) 

T.POMS1 à T.POMS4 Sources en format TEXT 

Fichiers et programmes sur la disquette Macintosh 

Girl 

Image MacPaint 

Japanese Girl 

Image MacPaint 

Screen Editor 

Application 

T Pom's 

Application 

T Pom's.Asm 

Fichier d'assemblage MDS 68000 (Assembler) 

T Pom's.Job 

Fichier 'exec' MDS 68000 (Executive) 

T Pom’s. Link 

Fichier de linkage’ MDS 68000 (Linker) 

T Pom's. R 

Fichier de ressources MDS 68000 (RMaker) 

T Pom's/I.Asm 

Fichier d'assemblage MDS 68000 (Assembler) 

T Pom's/2.Asm 

Fichier d'assemblage MDS 68000 (Assembler) 

T Pom's/3.Asm 

Fichier d'assemblage MDS 68000 (Assembler) 

T_Pom's/4.Asm 

Fichier d'assemblage MDS 68000 (Assembler) 
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Hervé Thiriez 



Voici donc bouclé le 30ème numéro de Pom’s, numéro rajeuni par le prin- 
temps mais également par notre souci de qualité, y compris dans la présenta- 
tion. Pom’s évolue, s’ouvre au GS, à la communication, à la télématique, 
bientôt au Mac SE et au Mac II ; ProDOS se doit de devenir la règle — la diver- 
sité des supports nous y contraint et c’est un bonne contrainte —, DOS 3.3 
est en passe de devenir exception. C’est le sens de l’évolution Apple, 
MEM/DOS s’appuie d’ailleurs déjà sur ProDOS qui est un pont avec les MFS et 
HFS du Mac. 

Le DGS lui-même est un pont avec la ligne Mac : l’acquéreur du nouveau-né, 
plongé dans la volumineuse documentation distribuée par VIF ou dans le livre 
de J.-P. Curcio au PSI sera familier de la ToolBox et des routines QuickDraw 
de son appareil... et de celles du Mac. 

Dans ces pages, télématique toujours : après l’enregistrement des pages des 
serveurs Minitel, le téléchargement entre Apple via Minitel et téléphone, voici 
des programmes de récupération de l’annuaire électronique, sur Apple //et 
sur Macintosh. Votre câble de liaison ne chômera pas : votre Apple //et votre 
Mac serviront bientôt. . . 

La souris est à l'honneur : une routine pour en faciliter la gestion depuis le 
Basic — l’ Applesoft est bien pauvre là encore — et un double jeu de réflexion 
construit autour de la souris, version Basic, version assembleur 65C02 (à vos 
kits...). 

Vous lirez également des bancs d’essai, MultiScribe, More 2 et la passion de 
nos rédacteurs : le billard. Quant à GSPaint et le Basic, il s’agit bien là de la 
première routine 65816 dans Pom’s : ne doutez pas de l’extension de cette 
rubrique... 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Michel Duroc, Jean-Michel Gourévitch, Olivier 

Herz, Roland Jost, Philippe Mathieu, Benoît Mesnil, Gérard Michel, Christian Piard, 
Alain Raynaud, Jacques Rey, Hervé Thiriez, Bernard Toméno. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Berger-Levrault - 18, rue des Glacis - 54000 Nancy. Tél. : 83.35.61.44. 

Photo de couverture : CP & JLB. 

Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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ÇS'Paint et (Basic 

j Jacques 0(ey 


Après avoir craqué pour un 
superbe IIgs, il faut se rendre à 
l'évidence, que faire sans l'ombre 
d'une documentation dans le 
carton, sans un seul renseigne- 
ment sur Prodos 16, sur le port 
imprimante (que refusent obstiné- 
ment certains programmes), sans 
parler de la synthèse sonore qui 
avait charmé nos oreilles dans la 
boutique ? Il n'y a que ‘Clefs 
pour Apple IIgs’ qui contient 
beaucoup de choses encore bien 
vagues... (La documentation 
technique maintenant disponible, 
3000 pages en 6 classeurs, 
2000,00 F, peut rendre le service 
espéré). 

Nous disposons, bien sûr, de 
GS/Paint, c'est beau et 
spectaculaire, mais que faire de 
ces images que l'on ne peut 
manipuler qu'avec le 
programme ? Un fichier de 32 
Ko, en format écran, ne se 
manipule pas facilement sous 
environnement Basic. System. 
Aussi était- il tentant de charger en 
mémoire les images sous format 
GS/Paint et de les transférer en 
page Super Haute Résolution à 
l'aide d'une routine de 
décompactage. 

Structure d'une 
image GS 

La page Super HGR se trouve 
dans le banc de mémoire $E1 
($00 étant le banc accessible par 
Basic. sytem et Prodos 8), elle 
débute en $2000 pour finir en 
$9FFF. L'image en elle-même est 
constituée de 200 fois 160 octets 
situés entre $2000 et $9CFF, 
chaque demi-octet représentant 1 
pixel (en mode 320 x 200 adopté 
par GS/Paint) qui peut prendre 16 
valeurs définissant le numéro de 
rang d'une des couleurs d'une 
palette. 

Cette palette est formée d'une 


suite de 16 fois deux octets qui 
par leurs combinaisons de valeurs 
constituent l'une des 4096 
nuances, l'emplacement réservé 
commence en $9E00 et se termine 
en $9FFF ce qui permet de loger 
16 palettes différentes ! 

De $9D00 à $9DC7 se trouvent 
200 octets qui contrôlent chacun 
une ligne du dessin ; la partie 
basse de ces octets, en particulier, 
désigne la palette qui est active 
pour une ligne donnée ce qui 
permet d'afficher 256 nuances 
dans une page. Dans le cas de 
GS/Paint une seule palette est 
active, ce qui simplifie bien les 
choses. 

Analysons maintenant la structure 
d'un fichier image compactée par 
GS/Paint. 

On reconnaît facilement que les 
32 premiers octets représentent la 
palette de couleurs, viennent 
ensuite 514 octets qui déroutent 
quelque peu et qui constituent 
finalement les canevas 
disponibles sur la ligne inférieure 
de l'écran de GS/Paint. Ces 
octets ne seront d'aucune utilité 
pour la transcription du dessin. 
L'image proprement dite 
commence à partir du $222ème 
octet du fichier. 

Pour compacter une image, il faut 
isoler les groupes de pixels 
identiques des suites de points 
différents les uns des autres. Le 
fichier compacté sera alors 
constitué de pointeurs qui 
indiquent si l'on doit multiplier x 
fois l'octet suivant, ou bien 
recopier les x octets qui suivent 
directement. 

Le décompactage 

Dans le cas de GS/Paint, la valeur 
donnée au pointeur va prendre 
trois significations différentes : 

• Un pointeur inférieur à $40 
indique que nous avons à faire 


à un segment contenant des 
octets non identiques, le 
pointeur donne la longueur du 
segment. 

• Les valeurs comprises entre 
$C0 et $ E7 ainsi que $41, 
$42, $44, $45 et $46 nous 
invitent à multiplier l'octet 
suivant de 2 à 160 fois : pour 
cela, $C0 vaut coefficient 4, 
$C1 vaut 8, $C2 = 12 et ainsi 
de suite de 4 en 4 jusqu'à $E7 
= 160; les coefficients x2, 
x3, x5, x6 et x7 étant 
représentés par les valeurs $41 
à $46. 

• Si le pointeur est compris entre 
$80 et $C0, il faut prendre en 
compte les quatre octets qui 
suivent et reproduire cette 
combinaison x fois. La valeur 
de x étant trouvée en 
retranchant $80 du contenu du 
pointeur. 

L'exemple en encadré éclaircira le 
codage. 

La routine de décompactage est 
courte (moins de 256 octets), elle 
a été assemblée en $2000 en 
utilisant le Mini-moniteur, faute 
de mieux, le fichier ‘source’ listé 
ci-contre et figurant sur la 
disquette d'accompagnement est 
un fichier texte créé sur 
Appleworks en respectant la 
syntaxe approximative d'un 
assembleur. Il est récupérable 
avec tout assembleur. 

Le but était avant tout d'utiliser 
des instructions spécifiques du 
processeur 65C816, les transferts 
de blocs d'octets étant effectués à 
l'aide de l'instruction MVN qui 
copie A octets de l'adresse X vers 
l'adresse Y (X et Y sur 16 bits). 
Les bancs de mémoire source et 
destination sont indiqués par les 
deux octets qui suivent 
l'instruction MVN. 

Il faut signaler deux contraintes 
importantes à l'utilisation de 
MVN: 


V. 
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• le registre B (registre indi- 
quant le banc de donnée actif) 

conserve la valeur du banc de 
destination en fin d'instruction, il 
est donc nécessaire de le 
sauvegarder par phb (empiler B) 
avant mvn et le restituer par plb 
après ; 

• si l'on travaille en mode natif 
mixte (A sur 8 bits, X et Y en 

16 bits), ce qui est le cas de la 
routine, il faut impérativement 
annuler l'octet haut du registre A 
car l'instruction mvn décompte 
tout de même sur 16 bits (utiliser 
lda too puis xba avant de 
charger dans A le nombre 
d'octets à transférer). 

La routine comportant quelques 
JSR internes (deux sous-routines 
de décomptage) ne peut être 
relogée qu'après des modifica- 
tions très simples à réaliser. Pour 
lister le code objet en moniteur, 
ne pas oublier de taper au 
préalable 0=x pour que le 
désassemblage se fasse sans 
erreurs et reconnaisse les codes 
sur 16 bits (la lettre x doit être 
tapée en minuscule). 

L'adresse de chargement du 
fichier image compacté est 
$2100, pour la changer, modifier 
la valeur du 13ème octet. 

Le deuxième octet contient la 
valeur qui permet la commutation 
du registre $C029 en mode Super 
HGR. Si l'on met $41 l'image est 
écrite mais l'écran reste en mode 
texte, il faut alors taper poke 
49193, 161 pour l'afficher et 
poke 4 9193, 65 pour revenir au 
texte ($C 0 2 9 : Al et$C029:41 
sous moniteur). 

En plaçant $A1 dans le deuxième 
octet, le décompactage a lieu en 
direct ce qui peut créer un certain 
effet d'animation. 

Lorsqu'on se trouve en Super 
HGR, pour revenir au mode texte 
depuis le basic, seul le poke cité 
plus haut est actif. Par contre, 
sous moniteur, taper ctrl-t puis 
Retum. 

Le programme DEMO. DE- 
COMPACT illustre l'utilisation 
de la routine. a 


Source DECOMPACT.S 


* Version 1.4 - J. REY Février/Mars 198 7 


llgs 


* 

ORG 

$2000 


ADSOU 

= 

$EB 

/Pointe sur la zone de chargement de 1 'image compactée 

ADDES 

= 

$ED 

/Pointe sur la zone de la page super HGR 

COMP1 

= 

$EF 

/Compteur d'octets 

COMP2 

= 

$FA 

/Compteur de transfert 

VSR 

* 

= 

$C029 

/Vidéo Sélect Register : commutateur de résolution vidéo 

*************** initialisation *************** 

* 

INI T 

LDA 

£41 

/Ou LDA £A1 pour voir 1 'image se décompacter 


STA 

VSR 

/Permet la linéarisation des adresses super HGR 


STZ 

ADSOU 

/Initialisation des adresses source et 


STZ 

ADDES 

/destination 


LDA 

£21 

/Image compactée chargée à partir de $2100 


STA 

AD SOU +1 



LDA 

£20 

/Début d'image super HGR en $El/2000 


STA 

ADDES +1 



CLC 




XCE 


/Passage en mode natif 65C816 


REP 

£10 

/Adoption du mode mixte A = 8 bits, X et Y = 16 bits 

*************** Transfert de la palette **************** 

* 

TRANSPAL 

PHB 


/Sauvegarde sur la pile du N° de banc de données actuel 


LDA 

£00 



XBA 


/Annule les 8 bits de poids fort de A 


LDA 

£ 1F 

/La palette comporte 32 octets 


LDX 

ADSOU 

/Récupération de 1 'adresse source 


LD Y 

£9E00 

/Init de 1 'adresse de destination de la palette 


MVN 

00E1 

/Transfert de A octets du banc 00 vers El 


LDX 

£00C7 


RAZ 

STZ 

9D00, X 

/Remise à zéro de la zone Scan Line Control Bloc 


DEX 


/200 octets 


BPL 

RAZ 



PLB 


/On se replace dans le banc 00 (B = El après MVN) 


*************** Analyse de l'image compactée ******* 


********** 


DEBIMAG LDA £ 22 

STA ADSOU 
CLC 

LDA AD SOU +1 
ADC £02 

STA ADSOU -h 1 ; Premier pointeur d'image situé au $222 eme octet 


LECPOINT LDA 
CMP 
BCC 
CMP 
BCS 
CMP 
BCS 

* 

OCTMULT AND 
INC 
BRA 

SUPCO SEC 

SBC 
ASL 
ASL 

SUITE STA 

JSR 

LECPIX LDA 
LD Y 
PHY 
PLB 
STA 
PLB 
JSR 
DEC 
BNE 
JSR 
BRA 


(ADSOU) 

£40 

TRANSOCT 

£C0 

SUPCO 

£80 

TRANS4 

£0F 

SUITE 

£3F 


COMP1 

INCADSOU 

(ADSOU) 

£00E1 


(ADDES) 

INCADDES 

COMP1 

LECPIX 

INCADSOU 

LECPOINT 


/ Récupère un pointeur 

Z Transfert d'une segment d'octets non identiques 
;Le pointeur est un multiplicateur de 4 en 4 

/ Transfert d'une suite de 4 octets reproduite plusieurs fois 

;Le pointeur est un multiplicateur par 2,3, 5, 6 ou 7 
; (valeur comprise entre $41 et $46) 

/ OCTMULT commence ici si pointeur >= à $C0 
/ Transforme les valeurs du pointeur comprises 
/entre CO et E7 en une valeur de multiplication 
/d'octets comprise entre 4 et 160 (de 4 en 4) 

/Initialise le compteur 
/ Incrémente 1 'adresse source 

/Récupère la valeur de 1 'octet 'Pixel ' à multiplier 

/Sauve sur la pile le N° de banc source et destination 
/Commute sur le banc destination 
/Ecrit dans la page Graphique 
/Commute sur le banc source 
/ Incrémente 1 'adresse de destination 

/On recommence autant que nécessaire 
/Passe au pointeur suivant 
/Branche au début de 1 'analyse 
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TRANS4 SEC 

SBC £80 
STA C0MP2 
LDA £03 

TRANSOCT STA COMF1 

JSR INCADSOU 
ENCORE PNB 

LDA £00 
XBA 

LDA C0MP1 
LDX ADSOU 
LD Y AD DE S 
MVN 00E1 
PLB 

BOUCLE JSR INCADDES 
LDA C0MP2 
BNE SAUT 

* 

JSR ADSOU 
SAUT DEC COMF1 
BPL BOUCLE 
LDA £03 
STA C0MP1 
DEC C0MP2 
BPL ENCORE 
STZ C0MP2 
BRA LECPOINT 


; Début routine de multiplication de groupes de 4 octets 
; Le mutiplicateur va de $0 à $A7 (1 à 40 fois 4 octets) 
;Que 1 'on range dans le compteur de transfert 
; Transfert d'une suite de 4 octets 

; Pour se placer sur le premier octet de la suite 
/Sauve le banc source 

; Annule 1 'octet haut de A 
/ Nombre d'octets à transférer 
/ Venant du banc 00 
/ Vers banc El 

;E t hop ! c'est transféré ! 

/Retour au banc de départ 

/On avance de deux Pixels (un octet) 

/Si transferts multiples saute incrémentation de 
1 'adresse source 
/ Incrément e 1 'adresse source 

/Avance les adresses du nombre d'octet transféré 


/A nouveau les <ruatre mêmes octets 
/C'es t pas fini , aux suivants ! 


*************** sous routines **************** 


INCADSOU INC ADSOU / Incrémente la partie basse et haute de l'adresse 

BNE RET1 /source 

INC ADSOU -h 1 
RET1 RTS 


INCADDES INC ADDES 
BNE RET2 
INC ADDES +1 
LDA ADDES +1 
CMP £9D 
BNE RE T 2 


/Incrémente 1 'adresse des pixels dans la page 
/écran super HGR 


/Vérifie si l'on n'est pas arrivé à la fin de la page 
/Non ? et bien continuons ! 


FIN 

PLX 

/C'est fini , on 


SEC 



XCE 

/Retour au mode 

RET2 

RTS 

/Au revoir ! 


dépile pour récupérer 1 'adresse de retour 
émulation 


ProDOS 


Récapitulation 
DECOMPACT. OBJ 


Après avoir saisi cette 
récapitulation sous moniteur, 
vous la sauvegarderez par : 
BSAVE DECOMPACT. OBJ, A$1000,L?101 


1 

000 

A9 

Al 

8D 

29 

CO 

64 

EB 

64 

1 

008 

ED 

64 

FA 

A9 

21 

85 

EC 

A9 

1 

010 

20 

85 

EE 

18 

FB 

C2 

10 

8B 

1 

018 

A9 

00 

EB 

A9 

1F 

A6 

EB 

AO 

1 

020 

00 

9E 

54 

El 

00 

A2 

Cl 

00 

1 

028 

9E 

00 

9D 

CA 

10 

FA 

AB 

A9 

1 

030 

22 

85 

EB 

18 

A5 

EC 

69 

02 

1 

038 

85 

EC 

B2 

EB 

C9 

40 

90 

34 

1 

040 

C9 

CO 

B0 

09 

C9 

80 

B0 

25 

1 

048 

29 

0F 

IA 

80 

05 

38 

E9 

3F 

1 

050 

OA 

OA 

85 

EF 

20 

Al 

20 

B2 

1 

058 

EB 

AO 

El 

00 

5A 

AB 

92 

ED 

1 

060 

AB 

20 

A8 

20 

C6 

EF 

DO 

EF 

1 

068 

20 

Al 

20 

80 

CD 

38 

E9 

80 

1 

070 

85 

FA 

A9 

03 

85 

EF 

20 

Al 

1 

078 

20 

8B 

A9 

00 

EB 

A5 

EF 

A6 

1 

080 

EB 

A4 

ED 

54 

El 

00 

AB 

20 

1 

088 

A8 

20 

A5 

FA 

DO 

03 

20 

Al 

1 

090 

20 

C6 

EF 

10 

F2 

A9 

03 

85 

1 

098 

EF 

C6 

FA 

10 

DC 

64 

FA 

80 

1 

0A0 

99 

E6 

EB 

DO 

02 

E6 

EC 

60 

1 

0A8 

ES 

ED 

DO 

0B 

E6 

EE 

A5 

EE 

1 

OBO 

C9 

9D 

DO 

03 

FA 

38 

FB 

60 

1 

0B8 

00 

00 

00 

00 

00 

00 

00 

00 

1 

OCO 

D2 

CF 

D5 

D4 

C9 

CE 

C5 

AO 

1 

0C8 

C4 

C5 

C3 

CF 

CD 

DO 

Cl 

C3 

1 

0D0 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

1 

0D8 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

1 

0E0 

A8 

C3 

A9 

AO 

CA 

AE 

AO 

D2 

1 

0E8 

C5 

D9 

AO 

B0 

B2 

AF 

B8 

B7 

1 

0F0 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

1 

0F8 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 


1100:00 


Programme 

DEMO. DECOMPACT 

Pour utiliser ce programme de démonstration, vous devez avoir sur 
la disquette 7 images graphiques type GS/Paint, sauvegardées sous 
les nom : POMS1, POMS2, POMS3. . . POMS7. C'est le cas si 
vous disposez la disquette d'accompagnement 3,5 pouces, 8 OOK 0 de 
Pom s. 

Selon le nombre d'images disponibles, modifier la ligne 140. 

5 REM ********** Démo Décompact 
10 TEXT : HOME 

20 D$ = CHR$ (4) : TYPE$ = " , T$CO , A$2100" 

25 PRINT D$"bloaddecompact . obj , a$2000" 

€ 0 PRINT : PRINT " Décompacteur d'image 

s GS/Paint" 

70 PRINT " **************************** 

* * ” 

SO PRINT : PRINT " Par J. Rey * Févri 

er/Mars 87 

85 SPEED= 100: PRINT : PRINT 
90 PRINT "Nous allons voir apparaître une s 
uite 


100 PRINT "d'images créées avec GS/Paint et 
cela " 

110 PRINT "sans l'aide du programme de de s s 
in . " 

120 PRINT "La routine 'Décompact' permet d' 
utiliser" 

130 PRINT "ces dessins à partir d'un progra 
mme en PRINT "BASIC. " 

135 PRINT D$ "bloadpomsl " ; TYPE$ : CALL 8192: 
POKE 8193,161: POKE 49193,161: FOR T « 1 
TO 2000: NEXT 

140 FOR X = 2 TO 1 

150 PRINT D$ "bl oadPOMS "X; TYPE$ : CALL 8192: 
NEXT 

230 FOR X = 1 TC 5000: NEXT : HTAB 1: VTAB 
6: CALL - 958: POKE 49193,65: SPEED= 25 
5 

240 PRINT : PRINT : PRINT : PRINT : PRINT : 
PRINT "Pour recommencer presser 'Espace 
'": PRINT : PRINT "Pour quitter presser 
'ESC' GET R$ 

250 IF R$ = CHR$ (27) THEN HOME : END 

260 GOTO 135 


K 
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La souris 


? faciCe ! 

Main H{aynaucC 

suivi des commandes: 


Pour gérer la souris, Apple 
propose actuellement deux 
méthodes : 

• en assembleur, en appelant des 
routines placées sur la ROM de la 
carte interface, 

• en Applesoft, avec des séries 
complexes de PR#4 : PRINT 
CHR$(0) : PR#0... 

Aucune n'est totalement 
satisfaisante car elles exigent, de 
la part du programmeur, soit une 
parfaite connaissance du 6502, 
soit des acrobaties pour pouvoir 
gérer en Basic le moindre menu 
déroulant. 

Le programme proposé ici offre 
la possibilité d'utiliser en 
Applesoft des commandes 
structurées qui permettent la 
programmation rapide d'appli- 
cations complexes utilisant la 
souris. 

Les commandes 

Ces commandes utilisent l'étemel 
vecteur de l'ampersand - ou 
esperluète pour les francophiles 
anglophobes - comme point 
d'entrée : 

£ INI T ( MOUSE ) 

débute obligatoirement toute série 
d'instructions utilisant la souris, 
et remet à zéro les pointeurs 

£ CLOSE (MOUSE) 

déconnecte la souris à la fin du 
programme 

& CURS (n ) 

sélectionne la forme du curseur 
graphique matérialisant la 
position de la souris 

£ WAIT (PRESS) 

attend que le bouton soit appuyé 
pour rendre la main au 
programme, et continue d'animer 


le curseur en attendant 

& WAIT (NOPRESS) 

idem mais attend que le bouton 
soit relâché 

& WAIT (NEW PRESS) 

idem mais attend une nouvelle 
pression du bouton 

£ WAIT (OUT [0,0 TO 

100 , 100 ] ) 

attend une sortie du cadre 
graphique défini par les deux 
points de coordonnées 0,0 et 
100,100 

£ WAIT (OUT [0, 0 TO 
100, 100] OR PRESS) 

idem mais on rend 
immédiatement la main si le 
bouton est activé 

£ WAIT (OUT [0, 0 TO 
100,100] OR NOPRESS) 

idem mais on rend 
immédiatement la main si le 
bouton est relâché 

& INVERSE (0,0 : LEN 

= 10 , 6 ) 

inverse la fenêtre graphique 
déterminée par le point 0,0 sur 
une longueur de 10 octets (soit 10 
x 7 = 70 pixels) et sur une 
hauteur de 6 lignes 

£ DATA (X, Y, BUT) 

place respectivement dans les 
variables X, Y et BUT : 
l'abscisse, l'ordonnée de la 
souris et l'état du bouton 
(0=relâché, l=appuyé) 

Exécution du 
programme 

Le programme se charge par la 
séquence d'instructions suivante : 

BLOAD SOURIS . C 
BLOAD SETCURSOR.C 
BRUN INTERFACE . C 
BLOAD INVERS I ON. C 


HGR : POKE -1 6302, 0 

pour afficher la première page 

graphique en mode non-mixte. 

Il est recommandé de placer 
HIMEM: à 36608 ($8F00) avant 
le chargement de ces routines afin 
d'éviter leur écrasement 
intempestif. 

L'ensemble des routines 
fonctionne sans modification 
sous environnement DOS 3.3 ou 
ProDOS. Les sources ont été 
constitués avec l'assembleur 
ProCODE. 

En revanche, pour minimiser 
l'occupation mémoire du 
programme, aucun contrôle n'est 
effectué pour vérifier qu'il existe 
bien une souris en slot 4, si tel 
n'est pas le cas alors gare au 
plantage ! 


$9000 

début du fichier SOURIS, 
initialisation de la souris, 
appel de la routine en ROM 
correspondant au code d'appel 
$9200 

début du fichier INTERFACE, 
interprétation des commandes 
Basic et appel des routines des 
autres fichiers 

$94F0 

début du fichier SETCURSOR. 
contient la table de formes 
(SHAPE) Applesoft matérialisant 
la souris 

$95 C0 

début du fichier INVERSION, 
routine d'inversion de fenêtre 
graphique 

$9600 

début du DOS 


Occupation mémoire 
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Sept formes sont définies dans le fichier 
SETCURSOR : 

0 flèche 

1 ciseau 

2 note de musique 

3 croix 

4 stylo 

5 crayon 

6 document 

7 feuille 

Il vous est possible d'en définir d'autres sous la 
contrainte d'espace mémoire indiquée ci-dessus. 
SETCURSOR place également aux adresses 2 et 3 la 
position de la forme sélectionnée. 

Û 


Programme SOURIS. DEMO 

5 PRINT CHR$ (4) "BLOAD SETCURSOR. C" 

6 PRINT CHR$ (4) "BLOAD SOURIS. C" 

7 PRINT CHR$ (4) "BRUN INTERFACE. C" 

8 PRINT CHR$ (4) "BLOAD INVERSION. C" 

9 HGR : POKE - 16302,0 

10 £ INIT (MOUSE) 

20 £ CURS ( INT ( RND (1) *7+1)) 

30 £ INVERSE (0,0: LEN = 20,191) 

40 £ CURS ( INT ( RND (1) * 7 + 1)) 

50 £ NAIT (OUT [0, 0 TO 140,191 ] OR PRESS) 

60 £ DATA (X, Y, BUT) 

70 IF BUT > 0 THEN 200 

80 £ INVERSE (0,0: LEN = 40,191) 

90 £ CURS ( INT ( RND (1) * 7 i 1)) 

100 £ NAIT (OUT [ 140,0 TO 279,191] OR 

PRESS) 

110 £ DATA (X, Y, BUT) 

120 IF BUT > 0 THEN 200 

130 £ INVERSE (0,0: LEN = 40,191) 

140 GOTO 40 

200 £ CLOSE (MOUSE) 

210 T EXT 


Source INTERFACE 
Assembleur ProCODE 


[it i uj t <1 ' i nt *• i t fti'.-ttjf </»* l.t 

routine : SOURIS .tvee le / ».-< -- / < 
/ nnt t uet h >nn : 


a in rr (mouse) 
a ha t T (press) 
a ha / t ( NorKt 

A WA I T (iHITl 0, U ■/•«' 1,11) 

a iv/l / T (i)U'i’i ü, u -i\) l,ll oi< 
AW/l/r (OUT IV, u TO l,ll OK 
a wa t T (NM PKt:::.'.) 

A t VKS ( i) 
a i ’l.Oilb'. (MOUSE) 

A / ‘AT A (X, Y, HUT) 

A INVERSE ( i, ‘j : l.EN - l U, A) 



ORG 

$9200 

SOURIS 

EQU 

$901 C 

AMPER 

LDA 

#$4C 


STA 

$3F5 


LDA 

If < DEBU T 


STA 

$3F6 


LDA 

i>DEBUT 


STA 

$3F7 


RTS 


DEBUT 

CMR 

#$B5 


BEQ 

HAITI 


CMP 

n ’ 


BEQ 

INIT 


CMP 

Il 'C' 


BEQ 

CLOSE 1 


CMP 

ft$83 


BEQ 

DATAI 


CMP 

11$ 9E 


BEQ 

INV 

SNTX 

RTS 


HAÏTI 

JMP 

HA l T 

DATA 1 

JMP 

DATA 

CLOSE 1 

JMP 

CLOSE 

INIT 

LD Y 

II>1N 


l.DX 

ff< IN 


JS R 

VERIE 


RCS 

SNTX 


JSR 

$9000 


JMP 

$Bl 

l NV 

JSR 

$Hl 


CMP 

r r 


HNE 

SNTX 


JSR 

$B 1 


JSR 

$l)Dt> / 


JSR 

$E10C 


LDA 

$A 1 


STA 

TAU 


JSR 

$H 1 


JSR 

$DDL / 


. ISR 

$E10C 


l.DA 

$A 1 


STA 

7710 t 1 


JSR 

$B / 


i ' MP 

H ' : ' 


UNE 

SNTX 


JSR 

$B 1 


i • MP 

USE i 


UNE 

SNTX 


J S. R 

$U l 


i ' MP 

IISDO 


PNE 

SNTX 


J S. R 

$Bl 


JSR 

$DDh / 


. ISR 

$E10 ( • 


l.DA 

$A l 


STA 

TAHU 


JSR 

$H I 


JSR 

$DDb f 


JSR 

$E10C 


LDA 

$A l 


STA 

T AlU 1 


l.DA 

#>7710 


STA 

$1 


LDA 

H<TAH 


STA 

$0 


JSR 

$9 bCO 


JMP 

$Bl 

SNTX l > 

RTS 


( 'I.OSE 

JSR 

$B1 


CMP 

VU' 


BEQ 

CUR 


LD Y 

H>Cl. 


l.DX 

tt<Cl. 


JSR 

VERIE 


RCS 

SNTX b 


LDA 

$C4 1 2 


; suite de SOURIS 


; code de WA1T 


; code de DATA 


; c.ulc de l.EN 


; INVERSE 


/A CLOSE (MOUSE) 


; (Set Mouse) 
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STA 

]1+1 


LDA 

#$00 


LDX 

#$C4 


LD Y 

#$40 

J 1 

JSR 

$C400 


JMP 

$B1 

CUR 

JSR 

$B1 


CMP 

# ' R ' 


BNE 

SNTX5 


JSR 

$Bl 


CMP 

#’S » 


BNE 

SNTX5 


JSR 

$B1 


CMP 

#' (' 


JSR 

$B1 


JSR 

$DD6 7 


JSR 

$E1 OC 


LDA 

$A0 


BNE 

SNTX4 


LDA 

$A 1 


JSR 

$94E7 


JSR 

$B1 


CMP 

#') 1 


BNE 

SNTX4 


JSR 

$B 1 

SNTX4 

RTS 


DATA 

JSR 

$B 1 


CMP 

#• r 


BNE 

SNTX4 


JSR 

$B 1 


JSR 

$DFE3 


LDA 

$83 


STA 

T AMP 1 


LDA 

$84 


STA 

T AMP 2 


JSR 

$B 1 


JSR 

$DEE3 


LDA 

$83 


STA 

TAB 


LDA 

$84 


STA 

TAB i 1 


JSR 

$B 1 


JSR 

$DEE3 


LDA 

$83 


STA 

TAB f 2 


LDA 

$84 


STA 

TAB t 3 


JSR 

$B 7 


CMP 

#•) 1 


BNE 

SNTX4 


LDA 

#6 


JSR 

SOU R l S 


LD Y 

$8 


JSR 

$E30 1 


LDX 

TAB 


LD Y 

TAB t 1 


JSR 

$EB2B 


LDA 

$/ 


LD Y 

$ 6 


JSR 

$E2E2 


LDX 

T AM P 1 


1.D Y 

'VAMP 2 


JSR 

$EB2B 


LDA 

$ 7 /C 


AND 

TA Y 

#$80 


JSR 

$E30 1 


LDX 

TAB f 2 


LD Y 

TAB * 1 


JSR 

$EB2B 


JMP 

$B 1 

SNTX2 

RTS 


MA 1 T 

JSR 

$B 1 


CMP 

#• r 


BNE 

SNTX2 


JSR 

$B 1 


LDX 

$B8 


STX 

TAMP1 


LDX 

$B9 


STX 

TAMP2 


LD Y 

#>PR 


; £ CURS (n) 


; A DATA (X, Y , BUT) 


; & MA l T ( PREISS) 


SI 


S2 


SNTX3 
S i 


LDX 

#<PR 

JSR 

VER IF 

BCS 

SI 

LDA 

#0 

JSR 

SOURIS 

JMP 

$B1 

LDX 

T AM PI 

STX 

$B8 

LDX 

TAMP2 

STX 

$B9 

LD Y 

#>NO 

LDX 

#<NO 

JSR 

VER IF 

BCS 

S2 

LDA 

#1 

JSR 

SOURIS 

JMP 

$B1 

LDX 

TAMP1 

STX 

SB8 

LDX 

T AMP 2 

STX 

$B9 

JSR 

$B 7 

CMP 

#$BF 

BNE 

S3 

JSR 

$B1 

LD Y 

#>PR 

LDX 

#<PR 

JSR 

VER1F 

BCS 

SNTX2 

LDA 

#b 

JSR 

SOUR l S 

JMP 

$B 1 

RTS 


LDX 

T AMP 1 

STX 

$B8 

LDX 

'VAMP 2 

STX 

$89 

LD Y 

#>OU 

LDX 

#<OU 

JSR 

VERIE 

BNE 

SNTX2 

JSR 

$B1 

JSR 

$DD6 7 

JSR 

$E1 OC 

LDA 

$Al 

STA 

TAB 

LDA 

$A0 

STA 

TAB i l 

JSR 

$B7 

CMP 

#'. ' 

BNE 

SNTX3 

JSR 

$B 1 

JSR 

$DD6 7 

JSR 

$El OC 

LDA 

$A1 

STA 

TAB t 2 

JSR 

$B 7 

CMP 

#$Cl 

BNE 

SNTX 1 

JSR 

$B 1 

JSR 

$DD(> 7 

JSR 

$E10C 

LDA 

$A 1 

STA 

TAB t 3 

LDA 

$A0 

STA 

TAB t 4 

JSR 

$B7 

CMP 

#', ' 

BNE. 

SNTX 1 

JSR 

$B1 

JSR 

$DD6 7 

JSR 

$E1 OC 

LDA 

$A 1 

S' VA 

TAB f ^ 

LDA 

#< TAB 

STA 

$0 

LDA 

#>‘l'AB 

STA 

$1 

JSR 

$B 7 

CMP 

#’l • 

BNE 

SNTX 1 

JSR 

$B l 


; & MAI T (NOPRESS) 


; & MA1T ( N EM PRESS) 


; code de NEM 


; & MAI T (OUT / 0, 0 TO 140, 90 / ) 


; code 


iie TO 
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1 1 




CMP 

#') r 




BEQ 

CH1 




CMP 

#$CE 

/ 

code de OR 


BNE 

SNTX1 




JSR 

$B1 




LDX 

$B8 




STX 

TAMPl 




LDX 

$B9 




STX 

TAMP2 




LDX 

#<PR 




LD Y 

#>PR 




JSR 

VERIF 




BCC 

CH2 




LDX 

TAMPl 




STX 

$B8 




LDX 

TAMP2 




STX 

$B9 




LDX 

#<NO 




LD Y 

#>NO 




JSR 

VERIF 




BCS 

SNTX1 



CH3 

LDA 

#2 

; 

ou NOPRESS 


JMP 

CALL 



CH1 

LDA 

# 4 

; 

simplement 


JMP 

CALL 



CH2 

LDA 

# 3 

; 

ou PRESS 

CALL 

JSR 

SOURIS 




JMP 

$B1 



SNTX1 

RTS 




VER IF 

'STX 

AD+1 




STY 

AD +2 




STX 

VI +1 




STY 

VI +2 




LDX 

HO 




JSR 

$B7 



AD 

CMP 

$200, X 




BNE 

FAUX 




INX 




VI 

LDA 

$200, X 




BEQ 

OK 




JSR 

$B1 




JMP 

AD 



OK 

CLC 





RTS 




FAUX 

SEC 





RTS 




T AM PI 

HEX 

00 



TAMP2 

HEX 

00 



IN 

ASC 

•INIT(MOUSE) 

» 


HEX 

00 



CL 

ASC 

'LO SE (MOU SE) 

r 


HEX 

00 



NO 

ASC 

'NO ’ 



PR 

ASC 

' PRESS) ' 




HEX 

00 



OU 

ASC 

’OUT [ ’ 




HEX 

00 



TAB 

DS 

6 




Source SETCURSOR 
Assembleur ProCODE 

k * 

* Programme de gestion du curseur * 

k * 



ORG 

S94E7 

ADI 

EQU 

$2 

AD2 

EQU 

ADI +1 


k * 

* 00 : fléché * 


* 01 : ciseaux * 

* 02 : note de musique * 

* 03 : croix * 

* 04 : stylo * 

*05 : crayon 

* 06 : document * 

* 07 : feuille 

k * 

kkkkkkkkkkkkkkkkkkkkkkkkkk 


CHOIX 

ASL 

TAX 

; multiplication par 2 


LD Y 

Tl+1, X 


LDA 

Tl, X 


ST A 

AD2 


STY 

RTS 

ADI 

Tl 

DDB 

FLECHE 


DDB 

CISEAUX 


DDB 

NOTE 


DDB 

CROIX 


DDB 

STYLO 


DDB 

CRAYON 


DDB 

DOC 


DDB 

FEUILLE 

FLECHE 

HEX 

2D2D1E3F3 7 2D353F374D0E0E2 527 270600 

CISEAUX 

HEX 

2E2E2E2E2E0EAE65E4FF1B16F6E7646D4043432B26 


HEX 

2017240600 

NOTE 

HEX 

2E2D0C3F272D2524 242424 24 24 0E0E2E3E2E1E3 600 

CROIX 

HEX 

20B4 0A2DD7332 6C03F0500 

STYLO 

HEX 

49E40DFC1C2D2D2424242424242424242424BF9212 


HEX 

242444 633C3 73E3 63 63 63 63 63 63 63 636362600 

CRAYON 

HEX 

653F2C2D0C64 6424 6F24273F1 72EDEF6F6363500 

DOC 

HEX 

2D0E2E2D2D3536363E3F3F3F3F3F2724242C45B328 

2D0500 

FEUILLE 

HEX 

3 63 63 63 63 62D2D2D2D25242424 3F2 7240E0EDC1 83F 
3F0600 


Source SOURIS 
Assembleur ProCODE 

k * 

* Programme de gestion de souris * 

k * 



ORG 

$9000 

SET 

EQU 

$C412 

SERVE 

EQU 

$C413 

READ 

EQU 

$C4 1 4 

CLEAR 

EQU 

$C415 

POS 

EQU 

$C4 1 6 

CLAMP 

EQU 

$C41 7 

HOME 

EQU 

$C4 18 

INIT 

EQU 

$C4 19 

CADRE 

EQU 

$0 

XI 

EQU 

$6 

X2 

EQU 

$7 

Y 

EQU 

$8 

XXI 

EQU 

$2078 

XX2 

EQU 

$2079 

YY1 

EQU 

$20 7 A 

YY2 

EQU 

$207B 

Fl 

EQU 

$2 

F2 

EQU 

Fl +1 

XDRAW 

EQU 

$F65D 

POSXY 

EQU 

$F411 

SCALE 

EQU 

$E7 

BIT 

= 

$95F8 

RES 

= 

$95F9 

BIT2 

= 

$9 5F A 

RES2 

= 

$95FB 


K 
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COM 


$95FC 


FIRST 


DEBUT 


T2 


Tl 


COMO 


C0M1 


COM2 


COM3 


COM4 


C0M5 


LDA 

#1 

LDX 

#<INIT 

JSR 

CALL 

LDA 

#$01 

LDX 

#<SET 

JSR 

CALL 

LDX 

#<CLEAR 

JSR 

CALL 

LDA 

# 0 

STA 

XI 

STA 

X2 

STA 

RTS 

Y 


PHA 


JSR 

F LECHE 1 

PLA 


ASL 


TA Y 


LDA 

Tl, Y 

LDX 

Tl+1, Y 

STX 

T2+1 

STA 

T2+2 

JSR 

COMO 

JMP 

LECTURE 

DDB 

COMO 

DDB 

COM1 

DDB 

COM2 

DDB 

COM3 

DDB 

COM4 

DDB 

COM5 

DDB 

COM 6 

LDA 

#$80 

STA 

BIT 

STA 

BIT 2 

STA 

RES 

STA 

RES2 

LDA 

#0 

STA 

COM 

RTS 


LDA 

#$80 

STA 

BIT 

STA 

BIT2 

LDA 

#0 

STA 

RES 

STA 

RES2 

STA 

COM 

RTS 


LDA 

#$80 

STA 

BIT 

STA 

BIT 2 

STA 

COM 

LDA 

#0 

STA 

RES 

STA 

RES2 

RTS 


LDA 

#$80 

STA 

BIT 

STA 

BIT 2 

STA 

RES 

STA 

RES2 

STA 

COM 

RTS 


LDA 

#0 

STA 

BIT 

STA 

BIT2 

STA 

RES2 

LDA 

#$FF 

STA 

RES 

STA 

COM 

RTS 


LDA 

#$C0 

STA 

BIT 

STA 

BIT2 

LDA 

#$80 

STA 

RES 


; initialisation de la souris 


;en mode passif 
; remise a zéro des coordonnées 


;fin de 1 ’ initialisation 


; ordre poids fort / poids faible 


COM 6 


LECTURE 


XFAUX 


XOK 


Y F AUX 


YOK 


SI 


S2 


S3 


STA 

RES2 

LDA 

#0 

STA 

COM 

RTS 

LDA 

#0 

STA 

BIT 

STA 

BIT2 

STA 

RES 

STA 

RES2 

LDA 

#$FF 

STA 

COM 

RTS 

LDX 

#<READ 

JSR 

CALL 

LDA 

$57C 

BEQ 

XOK 

CMP 

#1 

BEQ 

XOK 

CMP 

#2 

BNE 

XFAUX 

LDA 

$4 7C 

CMP 

#$2F 

BCC 

XOK 

LDA 

#2 

STA 

$57C 

LDA 

#$2F 

STA 

$47 C 

LDA 

$5 FC 

BEQ 

YOK 

CMP 

#1 

BNE 

YFAUX 

LDA 

$4 FC 

CMP 

#$7F 

BCC 

YOK 

LDA 

#1 

STA 

$5FC 

LDA 

#$7F 

STA 

$4FC 

LDX 

#<POS 

JSR 

CALL 

LDA 

$4 7C 

STA 

XXI 

LDA 

$57C 

STA 

XX2 

LDA 

$5 FC 

STA 

YY2 

LDA 

$4FC 

STA 

YY1 

LSR 

XX2 

ROR 

XXI 

LSR 

YY2 

ROR 

YY1 

LDA 

COM 

BEQ 

A2 

LD Y 

#2 

LDA 

YY1 

CMP 

(CADRE) , Y 

BEQ 

SI 

BCS 

SI 

JMP 

R2 

LD Y 

#5 

CLC 

CMP 

(CADRE) , Y 

BEQ 

S2 

BCC 

S2 

JMP 

R2 

LD Y 

#1 

LDA 

XX2 

CMP 

(CADRE) , Y 

BNE 

S3 

LD Y 

#0 

LDA 

XXI 

CMP 

(CADRE) , Y 

BEQ 

S4 

BCS 

S4 

JMP 

R2 

LD Y 

#1 

CMP 

(CADRE) , Y 

BCS 

S4 

JMP 

R2 


;read mouse 


;si supérieur a YMIN 


; si inferieur a YMAX 


; maintenant on teste X 
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S4 

LD Y 

# 4 




LDA 

CMP 

XX2 

(CADRE) , Y 

Source INVERSION 


BNE 

LD Y 

S5 
# 3 

Assembleur ProCODE 


LDA 

XXI 




CMP 

(CADRE) , Y 

********************************** 


BEQ 

A2 ; ok 

* 

* 


BCC 

A2 ;ok aussi 

* programme d 

'inversion d’une * 

S5 

CMP 

(CADRE) , Y 

* 

* 


BCC 

A2 ; termine 

* zone correspondant aux octets * 


BEQ 

A2 

* 

* 


JM P 

R2 

* délimitant 

la zone. * 

A2 

LDA 

$77C 



AND 

BIT 




CMP 

RES 

ORG 

$95C0 


BEQ 

RETOUR 



A4 

LDA 

$77C 

*************************************** 


AND 

*$20 

* 

* 


BEQ 

A5 

* (0) ,0 : X 

1x8) 

A3 

JSR 

FLECHEl 

* (0),1 : Y 

* 


JSR 

FLECHE 

* (0) , 2 : L 

( longueur de la zone ) * 

A5 

JMP 

LECTURE 

* (0) , 3 : H 

( hauteur de la zone ) * 

RETOUR 

LDA 

$77 C 

*************************************** 


AND 

BIT2 




CMP 

RES2 

BO LD Y 

41 


BNE 

A4 

LDA 

(0) ,Y ; charge Y 

R2 

JSR 

FLECHEl 

LDX 

»0 


LDA 

XXI 

LD Y 

HO 


S TA 

XI 

JSR 

$F4 1 1 


LDA 

XX2 

LD Y 

42 


STA 

X2 

LDA 

(0),Y 


LDA 

YY1 

TAX 



STA 

Y 

LD Y 

40 


CLC 


LDA 

(0) , Y 


RTS 


TA Y 


CALL 

STX 

C400+1 

DEY 


C400 

LDX 

$C400 

Bl IN Y 



STX 

Cl+l 

LDA 

($26) , Y 


LDX 

*$C4 

EOR 

4$FF 


LD Y 

*$40 

STA 

($26 ) , Y 

Cl 

JMP 

$C400 

DEX 





BNE 

Bl 

FLECHE 

LDA 

XXI 

B2 LD Y 

ni 


STA 

XI 

LDA 

(0),Y 


LDA 

XX2 

TAX 



STA 

X2 

INX 



LDA 

YY1 

TXA 



STA 

Y 

STA 

(0),Y 




LD Y 

43 

FLECHEl 

LDX 

XI 

LDA 

(0) , Y 


LD Y 

X2 

TAX 



LDA 

Y 

DEX 



JSR 

POSXY 

BEQ 

FINI 


LDA 

*i 

TXA 



STA 

SCALE 

STA 

(0) , Y 


LDA 

» 0 

JMP 

BO 


LD Y 

F2 

FINI RTS 



LDX 

Fl 




Récapitulation 

SETCURSOR.C 


Après avoir saisi ces codes sous 
moniteur, vous les sauvegarderez par : 

\ BSAVE SETCURSOR.C , A$94E 7, L212 

94E7 : OA 

94E8-.AA BC F5 94 BD F 4 94 85 

94F0-.03 84 02 60 95 04 95 15 

94F8 : 95 2F 95 44 95 4F 95 77 

V 


9500:95 

8B 

95 

A3 

2D 

2D 

1E 

3F 

9508:37 

2D 

35 

3F 

37 

4D 

OE 

OE 

9510:25 

27 

27 

06 

00 

2E 

2E 

2E 

9518 :2E 

2E 

OE 

AE 

65 

E4 

FF 

IB 

9520:16 

F6 

E7 

64 

6D 

40 

43 

43 

9528 :2B 

26 

20 

17 

24 

06 

00 

2E 

9530 :2D 

OC 

3F 

27 

2D 

25 

24 

24 

9538:24 

24 

24 

24 

OE 

OE 

2E 

3E 

9540 :2E 

1E 

36 

00 

20 

B4 

OA 

2D 

9548 :D7 

33 

26 

CO 

3F 

05 

00 

49 

9550 :E4 

OD 

FC 

IC 

2D 

2D 

24 

24 

9558:24 

24 

24 

24 

24 

24 

24 

24 


9560:24 

BF 

92 

12 

24 

24 

44 

63 

9568 :3C 

37 

3E 

36 

36 

36 

36 

36 

9570:36 

36 

36 

36 

36 

26 

00 

65 

9578:3F 

2C 

2D 

OC 

64 

64 

24 

6F 

9580:24 

27 

3F 

17 

2E 

DE 

F6 

F6 

9588:36 

35 

00 

2D 

OE 

2E 

2D 

2D 

9590:35 

36 

36 

3E 

3F 

3F 

3F 

3F 

9598:3F 

27 

24 

24 

2C 

45 

B3 

28 

95A0-.2D 

05 

00 

36 

36 

36 

36 

36 

95A8-.2D 

2D 

2D 

2D 

25 

24 

24 

24 

95B0 : 3F 

27 

24 

OE 

OE 

DC 

18 

3F 

95B8 : 3F 

06 

00 
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Récapitulation 

SOURIS.C 

Après avoir saisi ces codes sous 
moniteur, vous les sauvegarderez par 

BSAVE SOURIS.C , A$9000, L512 

9000 :A9 01 A2 19 20 CB 91 A9 
9008:01 A2 12 20 CB 91 A2 15 
9010:20 CB 91 A9 00 85 06 85 
9018:07 85 08 60 48 20 EA 91 
9020:68 OA A8 B9 35 90 BE 36 
9028:90 8E 30 90 8D 31 90 20 
9030:43 90 4C CF 90 90 43 90 
9038:57 90 6B 90 7 F 90 91 90 
9040 :A5 90 BB A9 80 8D F8 95 
9048:80 FA 95 8D F9 95 8D FB 
9050:95 A9 00 8D FC 95 60 A9 
9058:80 8D F8 95 8D FA 95 A9 
9060:00 8D F9 95 8D FB 95 8D 
9068: FC 95 60 A9 80 8D F8 95 
9070 :8D FA 95 8D FC 95 A9 00 
9078 :8D F 9 95 8D FB 95 60 A9 
9080:80 8D F8 95 8D FA 95 8D 
9088 :F9 95 8D FB 95 8D FC 95 
9090:60 A9 00 8D F8 95 8D FA 
9098:95 8D FB 95 A9 FF 8D F9 
90 AO : 95 8D FC 95 60 A9 CO 8D 
90A8 :F8 9.5 8D FA 95 A9 80 8D 
90B0-.F9 95 8D FB 95 A9 00 8D 
90B8 :FC 95 60 A9 00 8D F8 95 
90C0-.8D FA 95 8D F9 95 8D FB 
90C8-.95 A9 FF 8D FC 95 60 A2 
90D0-.14 20 CB 91 AD 7C 05 FO 
90D8-.19 C9 01 FO 15 C9 02 DO 
90E0 ; 0 7 AD 7 C 04 C9 2F 90 OA 
90E8-.A9 02 8D 7 C 05 A9 2F 8D 
90F0-.7C 04 AD FC 05 FO 15 C9 
90F8:01 DO 07 AD FC 04 C9 7 F 
9100:90 OA A9 01 8D FC 05 A9 
9108:7F 8D FC 04 A2 16 20 CB 
9110:91 AD 7 C 04 8D 78 20 AD 
9118 :7C 05 8D 79 20 AD FC 05 
9120 : 8D 7 B 20 AD FC 04 8D 7 A 
9128:20 4E 79 20 6E 78 20 4E 
91 30 : 7 B 20 6E 7A 20 AD FC 95 
9138-.F0 57 AO 02 AD 771 20 DI 
9140:00 FO 05 BO 03 4C B7 91 
9148: AO 05 18 DI 00 FO 05 90 
9150:03 4C B7 91 AO 01 AD 79 
9158:20 DI 00 DO OE AO 00 AD 
9160:78 20 DI 00 FO OE BO OC 
9168.-4C B 7 91 AO 01 DI 00 BO 
9170:03 4C B 7 91 AO 04 AD 79 
9178:20 DI 00 DO OB AO 03 AD 
9180:78 20 DI 00 FO OB 90 09 
9188: DI 00 90 05 FO 03 4C B7 
9190:91 AD 7 C 07 2D F8 95 CD 
9198 :F9 95 FO 10 AD 7C 07 29 
91A0-.20 FO 06 20 EA 91 20 DB 
91A8-.91 4C CF 90 AD 7 C 07 2D 
91B0-.FA 95 CD FB 95 DO E5 20 
91B8-.EA 91 AD 78 20 85 06 AD 


9 ICO: 79 

20 

85 

07 

AD 

7 A 

20 

85 

91C8-.08 

18 

60 

8E 

CF 

91 

AE 

00 

91D0 :C4 

8E 

D9 

91 

A2 

C4 

AO 

40 

91D8 :4C 

00 

C4 

AD 

78 

20 

85 

06 

91E0.-AD 

79 

20 

85 

07 

AD 

7A 

20 

91E8-.85 

08 

A6 

06 

A4 

07 

A5 

08 

91F0-.20 

11 

F4 

A9 

01 

85 

E7 

A9 

91F8 : 00 

A4 

03 

A6 

02 

4C 

5D 

F6 


Récapitulation 
INTE R FACE. C 

Après avoir saisi ces codes sous 
moniteur, vous les sauvegarderez par : 
BSAVE INTERFACE. C, AS9200. L739 

9200 :A9 4C 8D F5 03 A9 10 8D 

9208-.F6 03 A9 92 8D F7 03 60 

9210-.C9 B5 FO 11 C9 49 FO 16 

9218-.C9 43 FO OF C9 83 FO 08 

9220-.C9. 9E FO 19 60 4C 69 93 

9228-.4C F2 92 4C AO 92 AO 94 

9230-.A2 B 7 20 8F 94 BO ED 20 

9238:00 90 4C B1 00 20 B1 00 
9240-.C9 28 DO EO 20 B1 00 20 
9248:67 DD 20 OC El A5 Al 8D 
9250-.DD 94 20 B1 00 20 67 DD 

9258:20 OC El A5 Al 8D DE 94 

9260:20 B 7 00 C9 3A DO BD 20 

92 68 :B1 00 C9 E3 DO B6 20 B1 
9270:00 C9 DO DO AF 20 B1 00 
9278:20 67 DD 20 OC El A5 Al 
9280 : 8D DF 94 20 B1 00 20 67 
9288 : DD 20 OC El A5 Al 8D EO 
9290:94 A9 94 85 01 A9 DD 85 
9298:00 20 CO 95 4C B1 00 60 
92A0 :20 B1 00 C9 55 FO IB AO 
92A8-.94 A2 C3 20 8F 94 BO EF 
92B0-.AD 12 C4 8D BD 92 A9 00 
92B8-.A2 C4 AO 40 20 00 C4 4C 
92C0-.B1 00 20 B1 00 C9 52 DO 
92C8-.D6 20 B1 00 C9 53 DO CF 
92D0-.20 B1 00 C9 28 20 B1 00 
92D8-.20 67 DD 20 OC El A5 AO 
92E0 :D0 OF A5 Al 20 E7 94 20 
92E8-.B1 00 C9 29 DO 03 20 B1 
92F0-.00 60 20 B1 00 C9 28 DO 
92F8-.F8 20 B1 00 20 E3 DF A5 
9300:83 8D B5 94 A5 84 8D B6 
9308:94 20 B1 00 20 E3 DF A5 
9310:83 8D DD 94 A5 84 8D DE 
9318:94 20 B1 00 20 E3 DF A5 
9320:83 8D DF 94 A5 84 8D EO 
9328:94 20 B7 00 C9 29 DO Cl 
9330-.A9 06 20 IC 90 A4 08 20 
9338:01 E3 AE DD 94 AC DE 94 
9340:20 2B EB A5 07 A4 06 20 
9348 :F2 E2 AE B5 94 AC B6 94 
9350:20 2B EB AD 7 C 07 29 80 
9358 :A8 20 01 E3 AE DF 94 AC 
9360 :E0 94 20 2B EB 4C B1 00 
9368:60 20 B1 00 C9 28 DO F8 
9370:20 B1 00 A6 B8 8E B5 94 


9378-.A6 B9 8E B6 94 AO 94 A2 

9380 : DI 20 8F 94 BO 08 A9 00 

9388:20 IC 90 4C B1 00 AE B5 

9390:94 86 B8 AE B6 94 86 B9 

9398-.A0 94 A2 CF 20 8F 94 BO 

93A0:08 A9 01 20 IC 90 4C B1 

93A8:00 AE B5 94 86 B8 AE B6 

93B0-.94 86 B9 20 B 7 00 C9 BF 

93B8-.D0 15 20 B1 00 AO 94 A2 

93C0-.D1 20 8F 94 BO A2 A9 05 

93C8-.20 IC 90 4C B1 00 60 AE 

93D0 :B5 94 86 B8 AE B6 94 86 

93D8:B9 AO 94 A2 D8 20 8F 94 

93E0-.D0 86 20 B1 00 20 67 DD 

93E8-.20 OC El A5 Al 8D DD 94 

93F0-.A5 AO 8D DE 94 20 B 7 00 

93F8-.C9 2C DO D2 20 B1 00 20 

9400:67 DD 20 OC El A5 Al 8D 

9408 :DF 94 20 B 7 00 C9 Cl DO 

9410 :7D 20 B1 00 20 67 DD 20 

9418: OC El A5 Al 8D EO 94 A5 

9420: AO 8D El 94 20 B 7 00 C9 

9428-.2C DO 63 20 B1 00 20 67 

9430 : DD 20 OC El A5 Al 8D E2 

9438:94 A9 DD 85 00 A9 94 85 

9440:01 20 B7 00 C9 5D DO 46 

9448:20 B1 00 C9 29 FO 32 C9 

9450-.CE DO 3B 20 B1 00 A6 B8 

9458 :8E B5 94 A6 B9 8E B6 94 

94 60-.A2 DI AO 94 20 8F 94 90 

94 68 : 1D AE B5 94 86 B8 AE B6 

9470:94 86 B9 A2 CF AO 94 20 

9478:8F 94 BO 12 A9 02 4C 88 

9480:94 A9 04 4C 88 94 A9 03 

9488:20 IC 90 4C B1 00 60 8E 

9490 :A1 94 8C A2 94 8E A7 94 

9498-.8C A8 94 A2 00 20 B7 00 

94A0 :DD 00 02 DO OE E8 BD 00 

94A8-.02 FO 06 20 B1 00 4C AO 

94B0-.94 18 60 38 60 00 00 49 

94B8-.4E 49 54 28 4D 4F 55 53 

94C0 :45 29 00 4C 4F 53 45 28 

94C8-.4D 4F 55 53 45 29 00 4E 

94D0-.4F 50 52 45 53 53 29 00 

94D8 :4F 55 54 5B 00 00 00 00 

94E0 : 00 00 00 


Récapitulation 
INVERSION. C 

Après avoir saisi ces codes sous 
moniteur, vous les sauvegarderez par : 
BSAVE INVERSION. C, A$95C0, L5t 


95C0 :A0 01 B1 00 A2 00 AO 00 
95C8 :20 11 F4 AO 02 B1 00 AA 
95D0-.A0 00 B1 00 A8 88 C8 B1 
95D8-.26 49 FF 91 26 CA DO F6 
95E0 :A0 01 B1 00 AA E8 8A 91 
95E8 : 00 AO 03 B1 00 7171 CA FO 
95F0-.06 8A 91 00 4C CO 95 60 


J 
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Mathématiques, 

Physique et Basic, 

par Thierry Robin, 
Éditions Ellipses 
156 pages 

Après une vingtaine de 
pages générales sur l'infor- 
matique et le Basic, puis une 
quarantaine de pages sur 
l'analyse numérique, l'au- 
teur montre comment 
résoudre, à l'aide de 
programmes en Basic, 35 
problèmes scientifiques, 
dont des problèmes du 
concours d’entrée à l’X. C’est 
dire que la lecture de ce 
livre, pour intéressante 
qu’elle soit, risque de rebuter 
ceux qui n’ont pas de bonnes 
bases mathématiques. Le 
titre est d'ailleurs un peu 
trompeur : à de rares 
exceptions près, il s'agit de 
problèmes de mathéma- 
tiques. Le livre est clair et 
bien fait ; il aurait toutefois 
gagné à être présenté avec 
des listings utilisant des 
indentations. 


Reliures Pom’s 

Pour la protection de 
votre précieuse 
documentation, pour 
en faciliter la 
consultation, pour 
rendre agréable la 
recherche d'un CALL ou 
d'un PEEK égaré... 


Cryptage.. 


Erratum 


Une erreur s'est glissée dans l'article d'accompagnement de la 
commande externe 'KRUPTOS' du précédent numéro. Cryptage et 
décryptage s'obtiennent par la commande : 

CRYPTE nom_fichier, clef [,S n° Blot] [,D n° drive J 

On pouvait le déduire par la lecture de la fin du source. Ceci n'a pas 
empêché trois lecteurs de découvrir la clef de codage du fichier 
'SECRET' : «RM.7» ; le bit de poids fort, toujours identique sur les 
fichiers AppleWriter, était un indice non négligeable, bravo. 


Humeur... 

...ou plutôt mauvaise humeur ! Pom's publie suffisamment 
de sources écrits avec l’assembleur ProCODE pour ne pas 
être soupçonné d’a priori défavorable... Bien que doté de 
qualités, bien qu’assemblant sans problème, bien que 
gérant plusieurs fichiers en mémoire, bien que produit 
français, ProCODE est ergonomiquement affligeant : 

Impossible d’annuler une suppression de ligne involontaire. 
Impossible de supprimer directement la dernière ligne. 
Impossible d’insérer une ligne avant la première (il faut la 
dupliquer), 

Facile de sauvegarder un fichier en écrasant un ancien 
portant le même nom (pourtant ProDOS permet de savoir 
aisément si un fichier existe déjà : pourquoi ne pas 
prévenir l’utilisateur...). 

Faciles les erreurs dans les noms de fichiers : la saisie n’est 
pas contrôlée, 

Facile de tout perdre : on vide la mémoire sans proposer au 
préalable la sauvegarde. 

Impossible d’imprimer sans assembler (agréable en cours 
de conception lorsque toutes les étiquettes ne sont pas 
définies...). 

Obligé de sortir du programme pour changer le port de 
l’imprimante, 

Impossible de sauvegarder sous le nom 

/UNIDISK3.5/FICHIER3 car on ne peut dépasser 15 
caractères : obligé de définir un préfixe. 

Impossible de déverrouiller un fichier : l’option supprimer s’en 
trouve limitée... 

Bientôt une version agréable à utiliser ? 
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MuCtiScriôe 2.0 

Un traitement de testes en CD9dÇ2d 
‘Bernard ‘Toméno 


MultiScribe tourne sur Apple //e 
128Ko, Uc et IIgs. Il fonctionne 
sous ProDOS, en double haute 
résolution graphique, avec ou 
sans souris et use largement des 
fenêtres et menus déroulants : 
bref, un vrai programme 
Macintosh mais sur Apple //, ce 
qui est une belle performance. 

Bien sûr, les affichages, la 
rapidité de réaction, le 
déroulement des menus gagnent 
en agrément sur le IIgs. 

Le programme occupe les deux 
faces d'une disquette 140Ko qui 
doit rester en ligne, car le système 
a recours au disque pour changer 
de police de caractères, stocker 
un ‘copier’, etc. 

Pour plus de confort, la souris et 
deux lecteurs de disquettes sont 
souhaitables. L'ensemble des 
fichiers gagne à être placés sur 
une disquette 8 OOK 0 . 

L'utilisation est particulièrement 
intuitive : MultiScribe est une 
réplique fidèle du traitement de 
textes MacWrite disponible sur le 
Macintosh. Les conventions 
d'ergonomie adoptées sur cette 
machine ont été fidèlement 
respectées. 


La typographie 

Ce qui fait la force et la beauté de 
MultiScribe : dix polices de 
caractères en proportionnel dont 
l'inévitable Gothique. L'utilisa- 
teur en créé autant qu'il le 
souhaite grâce à l'éditeur livré sur 
la même disquette. 

Pour chacune d'elles, il est pos- 
sible de définir 5 tailles de 
caractères et 10 styles de 
présentation (voir l'exemple). 
Chaque type de police, taille et 
style peut être choisi avant d'être 
utilisé ou bien redéfini a 


posteriori sur un texte déjà 
existant (qui a pu être créé à l'aide 
d'Applework, Epistole Apple 
Writer, etc). 

Fonctionnalités 

On trouve sur MultiScribe les 
classiques fonctions de définition 
de marges (droite et gauche), 
justification (droite, gauche, 
totale, centrée), espacement de 
lignes variable, chercher et 
remplacer, couper/copier/coller. 

Il faut aussi noter les possibilités 
de définir des hauts et bas de 
pages automatiques (pouvant 
inclure date et heure si vous avez 
la carte horloge), une 
numérotation automatique des 
pages, l'insertion de saut de 
pages... 

Le déplacement dans le texte 
s'obtient par la touche Ô> ou 
c5<, Üchiffre (comme dans 
Applework ) ou à l'aide de la 
souris et du classique ascenseur 
latéral. 

Environnement 

On peut choisir son interface (45 
propositions, séries ou parallèles) 
et son imprimante (11 machines 
dont Image Writer, DMP, Epson 
FX, RX et MX, Okidata 92IBM, 
92STD, Scribe, Brother) et 
sauvegarder ce choix sur disque. 
On peut aussi définir son format 
de papier (4 possibilités, la plus 
utile en France étant Fanfold 
International). 

Les textes peuvent être 
sauvegardés sur tous supports 
(merci ProDOS), sur 5 1/4 ou 3 
1 / 2 , disque dur, ou disque virtuel 
volatile, ceci en format 
MultiScribe ou en format TEXT 
(ASCII). Il existe des options 
pour formater une disquette et 
détruire un fichier. 


L'impression 

Cinq qualités d'impression papier 
sont offertes, de plus en plus 
noires et lisses, le temps 
d'impression croissant avec la 
qualité, plus une qualité courante 
non graphique, plus une 
visualisation à l'écran avant 
d'imprimer. Pour la meilleure 
qualité, la tête d'impression passe 
quatre fois sur la même ligne. 

Il y a la possibilité de choisir le 
feuille à feuille ou le papier 
continu, l'impression totale ou 
partielle d'un texte, l'impression 
de plusieurs documents chaînés, 
la numérotation automatique des 
pages. 

L'éditeur de 
polices 

D'une fort belle présentation, il 
permet de créer ses propres 
polices, ou de modifier celles qui 
sont sur la disquette (francisation 
facile de certains caractères 
typiquement américains, création 
de lettres accentuées, de 
symboles scientifiques, ou même 
de petits logo ou dessins divers 
comme i®> par exemple). 

Options 

Pour quelques dollars de plus 
vous pouvez acheter des 
“options” : 

• Accessoires de bureau type 
Macintosh (horloge, calen- 
drier, calculette. . .) ; 

• Jeux de polices de caractères 
supplémentaires ; 

• ‘Picture Manager’ pour mé- 
langer 

dessins et texte ; 

• Correcteur d'orthographe (in 
english, sorry...). 
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Points forts, regrets 

Au chapitre points forts, on 
trouve la qualité de l'ergonomie et 
de la présentation à l'écran 
graphique, les nombreuses 
possibilités de typographie et 
d'impression, le couper/coller, 
l'ouverture des fichiers par une 
fenêtre de sélection : nul besoin 
de se rappeler l'orthographe 
exacte des nom de fichiers. 

Les menus déroulants dispensent 
l'utilisateur de se rappeler la 
syntaxe de telle ou telle fonction : 
le menu et la fenêtre de 
remplacement sont plus plaisants 
que : 

CTRL-F %§paris%§Paris%a . . . 

Rien n'étant parfait (quoi que...) 
en ce bas monde, on peut 
regretter : 

• l'absence de glossaire ; 

• les possibilités très limitées de 
mélanger plusieurs textes ou 
fragments de texte à l'écran (on 
annonce une version IIgs qui le 
pourrait) ; 

• l'impossibilité de sauvegarder 
sur disque les informations 
concernant le format du 
papier ; 

• l'impossibilité d'annuler la 


dernière commande ; 

• l'absence d'un WPL, ce 
langage d'AppleWriter qui 
permet d'automatiser les 
commandes répétitives, faire 
des mailings, etc. 

Dernier problème : sur un Apple 
//e avec Carte Féline, MultiScribe 
ne fonctionne pas (illisibilité à 
cause d'un problème d'affichage 
en double haute résolution). 
Don't panic. . . la solution est à la 
fin de ce papier. 

Commercialisation 

MultiScribe est vendu par 
Styleware inc. (5250 Gulfton 
suite E, Houston, Texas 77081) à 
un prix défiant toute concurrence 
(60 dollars). Il suffit d'écrire en 
précisant son numéro de carte de 
crédit et la date d'expiration : 15 
jours après, MultiScribe est chez 
vous avec un manuel clair et bien 
présenté. 

La disquette n'est pas protégée 
comme bien des softs américains 
aujourd'hui : mais MultiScribe est 
si bien fait et si bon marché qu'on 
ne doit pas avoir envie de le 
copier pour les copains. Ceux qui 
l'on écrit méritent un coup de 
chapeau et notre honnêteté. 


Recette pour un 
Apple //e avec 
carte Féline 

Avec la disquette ARLEQUIN, 
créez une disquette SYSTEM 
(elle contiendra donc PRODOS, 
ARLEQUIN. SYSTEM qui est un 
Basic amélioré, ainsi que les 
fichiers GLIDATA, GLI1 6.2, 
GLI.ERRORS, IWIICOLOR- 
COPY) et donnez lui le nom de 
/MULTISCRIBE. 

Sauvez y un STARTUP ainsi 
conçu : 

10 D$ = CHR$ (4) : PRINT D$ 

"PREFIX/MULTISCRIBE " 

20 & BACK (17) : & WINDOW 
( 0, 19, 0, 191, 1 ) : S MO 
DE (1) : & SETVAR ( 50, 
16 ) :& DISPLAY (9) : P 

OKE 49234, 0 : PRINT D$ 
"BLOAD MS. SYSTEM, TSYS, 
A$2000 " 

30 & DISPLAY ( 1 ) : CALL 

8192 

Puis recopier sur la disquette les 
fichiers de la face 1 du disque 
MULTISCRIBE, et au verso 
ceux de la face 2. C'est tout. Æ 

a 


ŒÛODIiïïDSŒlSDlBtB Quelques possibilités d’un 

traitement de tentes en DHGR 


Dix polices de caractères mixables à l’intérieur d’un même texte sans 
perdre la justification totale, y compris avec le ë Dix polices de 
caractères mixables à l'intérieur d’un même tente sans perdre la 
justification totale, y compris auec lé é DlX polices dé CâTSCtèféS 

mixables â l'intérieur d'un même ti?x. te &<an& perdre Lt* 
juetif tentton totale, il compris uvec te ê. Oin 
polices de caractères minables à l'inférieur d'un 
même texte sa ns perfcre la iUSttfT tcattOn totale, y 

<zv<£,<z Cé: £•- 

Un caractère peut etre standard, yras, it&fique , s QU li flü fi , 

aaaQjyâ, rsonsc, ii . i u.imu . jndiC( ,, double hauteur, 


Ces différents arguments sont 


entr e-euH 


/fa//g g£ 


s a uli&B-i 


Cs3 Œ1 Cs3 □ 
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‘DhgfTooC : 


un outil graphique 

( RoCancf J ost 


La double haute résolution 
graphique permet de 
disposer de 560 x 192 points 
sur un Apple Ile ou un //e 
avec mémoire étendue à 
128Ko. Mais l' Applesoft ne 
présente aucune facilité 
pour son accès et son 
utilisation reste délicate. 

Une image DHGR réside entre 
$2000 et $3FFF en mémoire 
principale et entre $2000 et 3FFF 
en mémoire auxiliaire, occupant 
16Ko de MEV. Toutes les 
colonnes paires de l'écran 80 
colonnes correspondent à la page 
auxiliaire, toutes les colonnes 
impaires à la page principale. Le 
microprocesseur de l'Apple ne 
pouvant adresser que 64Ko, 
l'accès à la mémoire auxiliaire ne 
peut se faire que par 
l'intermédiaire de bascules 
logicielles. 

Chargement et 
sauvegarde 
d'images DHGR 

Il est possible de stocker une 
image DHGR dans deux fichiers 
de 8Ko chacun, correspondant à 
la page graphique 1 en mémoire 
principale et la page graphique 1 
en mémoire auxiliaire (Cf les 
images de Purplesoft). 

Dans ce cas, le chargement se fait 
en deux fois : une image est 
chargée en mémoire principale, 
puis transférée dans la page 1 
auxiliaire en utilisant la routine 
AUXMOVE. Le deuxième fichier 
est alors chargé en page 1 de la 
mémoire principale. 

DhgrTool simplifie le processus 
en chargeant directement l'image 
en mémoire auxiliaire à partir du 
disque, sans passage par la 
mémoire principale. 


Il paraît plus logique de sauver 
l'image DHGR dans un fichier 
unique. Pour cela, DhgrTool 
transfère la page 1 auxiliaire en 
page 2 principale et l'image est 
sauvegardée par copie de 
l'ensemble des 2 pages HGR 
principales sur le disque ( bsave 

IMAGE, A$2000, L$3FF8). 

Le fichier comporte 33 blocs sous 
ProDOS ou 67 secteurs sous 
DOS 3.3. Le processus inverse a 
lieu au chargement : la page 
HGR2 principale est transférée 
dans la page 1 auxiliaire. 

Tous les vétérans de l'Apple 
disposent d'images graphiques 
simple haute résolution. Celles-ci 
peuvent être converties de deux 
façons : 

• deux images HGR combinées 
en une image DHGR : on 

charge successivement chacune 
des images HGR en page 2 et le 
sous-programme hghdhgr 
transfère chacune des 40 
colonnes alternativement en page 
1 auxiliaire et 1 principale. 
call Hl, o transfère la première 
image 

call Hl, 20 la. deuxième 

• conversion d'une image HGR 
en image DHGR : le 

sous-programme dblhgr dupli- 
que horizontalement chaque point 
de l'image HGR. Chaque octet de 
l'image initiale donne deux octets 
dont l'un est chargé en 1 
auxiliaire et l'autre en page 1 
principale. 

Manipulation 
d'images DHGR 
par DhgrTool 

1 — afficher une image 

Les opérations suivantes sont 
nécessaires : 

- déconnecter AN3 par lecture de 
l'adresse 49246 


- déconnecter ALPZP par POKE 
49160,0, qui permet de 
commuter uniquement entre les 
adresses $2000-$BFFF 

- passer en mode 80 colonnes 
par POKE 49165,0 (80 COL 
ON) 

- déconnecter TEXT en peekant 
en 49232 

- peeker en 49239 (HIRES ON) 
pour activer le graphisme haute 
résolution 

- peeker en 49234 (MIXED 
OFF) pour avoir accès à la 
totalité de l'écran. 

2 — effacer l'image 

- effacer la page 1 par le HGR 
classique 

- commuter la page IA 
(auxiliaire) par POKE 

49237.0 (PAGE2 ON) 

- effacer la page IA par CALL 
62450 

- revenir en page 1 par POKE 

49236.0 (PAGE2 OFF). 

3 — négatif de l'image 

Le programme assembleur 
effectue un eor $ff sur tous les 
octets de la page HGR 1 
principale et de la page 1 
auxiliaire 

4 — sauvegarde en 
mémoire auxiliaire et 
rappel 

Une image peut être sauvée dans 
la mémoire auxiliaire en 
$4000-7FFF ou $8000-BFFF. 
Le sous-programme transfert 
permet les déplacements 
suivants : 

Pour le transfert de 2 pages 

CALL TRANSFERT, 2, 2 

2 A vers 1 ; 3 A vers IA 
CALL TRANSFERT, 3,2 

1 vers 2A ; IA vers 3A 

CALL TRANSFERT, 4, 2 

4 A vers 1 ; 5 A vers IA 

CALL TRANSFERT, 5, 2 

1 vers 4A ; IA vers 5A 
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Pour le transfert d'une 
seule page 

CALL TRANSFERT, 0, 1 

IA vers 2 

CALL TRANSFERT, 1, 0 

2 vers IA 

Pour les deux derniers cas, 
l'appel à TRANSFERT doit être 
précédé d'un poke 49152, o (80 
STORE OFF) et suivi d'un poke 
49153, 0 (80STORE ON). En 
effet 80STORE ON a priorité sur 
les commutateurs RAMRD et 
RAMWRT utilisés par AUX- 
MOVE pour réaliser le transfert. 

D'autres possibilités peuvent être 
obtenues en complétant ou 
modifiant les tables DEBUT1, 
FINI, NOUV1, DEBUT2, 
FIN2, NOUV2 (lignes 259 à 264 
dans le source) 

5 — négatif d'une moitié 
d'image 

On peut inverser la moitié gauche 
ou la moitié droite. DHGRTOOL 
ne propose que l'inversion de la 
partie gauche. Pour inverser la 
partie droite faire d'abord un 
négatif de toute l'image, puis 
inverser la partie gauche. 

6 — échange des moitiés 
gauche et droite 

Intéressant lorsque l'image 
DHGR a été obtenue à partir de 
deux images HGR normales, ou 
pour des effets spéciaux. 

7 — copie d'une moitié 
dans l'autre 

8 — effet de miroir 
horizontal) 

DHGRTOOL.O 

Toutes ces opérations sont 
effectuées par le programme 
Assembleur DHGRTOOL.O qui 
est basé sur l'utilisation de la 
routine auxmove et sur les 
commutateurs page2 on et 
p âge 2 off (qui permettent de 
travailler respectivement sur la 
page 1 ou la page IA). 

La routine AUXMOVE 

AUXMOVE permet le transfert 
de blocs de données entre la 


mémoire principale et la mémoire 
auxiliaire, dans les deux sens. 
Elle est installée dans l'espace 
mémoire $C300-$C3FF et 
commence en $C31 1. 

Comme la routine MOVE du 
moniteur , elle utilise les adresses 
$3C - $43 pour délimiter la zone 
à transférer et l'adresse d'arrivée. 

$3C AIL octet bas de l'adresse 
de début du bloc à transférer 
$3D Al H octet haut de l'adresse 
de début 

$3E A2L octet bas de l'adresse 
de fin de la zone à transférer 
$3F A2H octet haut de l'adresse 
de fin 

$42 A4L octet bas de l'adresse 
d'arrivée 

$43 A4H octet haut de l'adresse 
d'arrivée 

De plus , c'est la valeur de la 

retenue qui détermine le sens du 
transfert : 

C=1 : mémoire principale vers 
mémoire auxiliaire 
C=0 : mémoire auxiliaire vers 
mémoire principale 

Le commutateur PAGE2 

En mode HGR normal, PAGE2 
permet l'accès à la page HGR 2. 
En mode 80 colonnes et double 
haute résolution, et lorsque 
80STORE est actif, un poke 
4 9237, o permet au processeur 
d'adresser la page IA , alors 
qu'un poke 49236, 0 permet 
l'adressage de la page 1. 

Implantation des divers 
programmes 

$6022 Négatif de la page DHGR 
$6047 Renverse l'image DHGR 
(miroir) 

$6099 HGR-»DHGR : dilate 
une image HGR 

$60E3 deux images HGR 
placées côte à côte utilise le 
sous-programme 
CALCADR et les tables 
TABILetTABlH 
$6186 échange les deux moitiés 
de l'image DHGR 
$61D2 copie la moitié gauche 
dans la partie droite 
$6216 copie la moitié droite dans 
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la moitié gauche 

$625C négatif de la partie gauche 
$626F négatif de la partie droite 
$62AE transfert de pages 
graphiques 

$633E correction d'erreurs. 

HardCopy de 
l'écran DHGR 

Une copie d'écran peut être 
obtenue avec le programme 
HARD de Marc Debuigne (Pom’s 
n° 18). Mais la page 2 étant 
utilisée, il faut le reloger . Il a été 
choisi de le charger en $1000. Il 
faut donc poker $10 dans les 
octets $10D0, $10EE, $10F3, 
$115B, $1165, $1187. 

En basic : poke 4304, 1 6: 

POKE 4334,16: POKE 
4339,16: POKE 4443,16: 

POKE 4453,16: POKE 4487, 16. 

Le programme HARD original 
permet d'imprimer une image en 
deux tailles 560*192 (1:1) et 
1120*364 (2:2). En masquant 
quelques instructions, on dispose 
de deux possibilités supplé- 
mentaires : (2:1) et (1:2). Voici la 
méthode : 

Pour image 2:1 

Faire les pokes suivants : poke 
768, 128: FOR 1=0 TO 4: 
POKE 4423+1,234: NEXT. Ceci 
revient à mettre NOP dans les 
adresses $1141 à $1145. 

Pour image 1:2 

POKE 768,128: FOR 1=5 TO 7 
: POKE 4423+1,234: NEXT. On 
met NOP dans les adresses 
$1146 et $1147. 

Après la hardcopy il faut restaurer 
le programme initial ($1141: 2C 
00 03 10 03 20 ED FD) par la 
séquence : poke 4423,44: 

POKE 4424,0: POKE 4425,3: 
POKE 4426,16: POKE 4427,3: 
POKE 4428,32: POKE 
4429,237: POKE 4430,253. 

Le programme HARD original 
présente un inconvénient lorsqu'il 
est utilisé sous ProDOS, car il 
déconnecte ce dernier. En effet, 
HARD modifie les pointeurs 
CSWL/CSWH en page zéro , ce 
qui est à éviter. Il est préférable 
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de passer par les adresses $BE30 
du BI (ProDOS) (cf. Beneath 
Apple ProDOS). Les pointeurs 
sont modifiés par les routines 
ACTIVE et DESACTIV de 
DHGRTOOLO. HARD est patché 
en conséquence (voir la ligne 
20097 dans DHGRTOOL). 

Utilisation de 
DHGRTOOL.O 
dans d'autres 
programmes 

DHGRTOOL.O est implanté à 
partir de $800, à la place 
habituelle d’un programme 
BASIC. Ce dernier devra donc 
être placé après la page HGR 2 , 


en $6000. Prendre exemple sur la 
ligne 10 de DHGRTOOL. 

Vous pouvez aussi réassembler 
DHGRTOOL.O à partir du 
programme source . En tout cas, 
vous devez laisser les pages 
HGR 1 et 2 libres. 

Pour disposer de la copie d'écran 
graphique , le programme HARD 
(Pom's 18) doit être présent sur 
la disquette. De plus, un certain 
nombre de patches sont 
nécessaires pour le reloger et le 
modifier. Prendre exemple sur les 
lignes 5070, 5080, 5185, 20095, 
20096, 20097. 

Certains sous-programmes de 
DHGRTOOL peuvent être utilisés 
dans vos propres réalisations : 


— gestion des menus ; 

— sélection d'une page graphique 
du disque (lignes 100-290) ; 

— routine de saisie de nom de 
fichier (lignes 300-490) ; 

— hardcopy (lignes 5000-5300). 

NB : DHGRTOOL ne tourne que 
sous ProDOS dont il utilise la 
possibilité de lire le directory 
d'une disquette et les appels au 
Basic Interpréter. Sous DOS 3.3, 
il faudrait modifier la routine de 
sélection d'une image (ligne 100) 
et les patches au programme 
HARD concernant les entrées/ 
sorties. 

DHGRTOOL.O est utilisable sous 
DOS 3.3 à l'exclusion de 
ACTIVE et DESACTIV. 

a 


Source DHGR.S 
Assembleur Edasm 
ProDOS ou ProCODE 

(Pour Edasm, LSR, ROR... ne 
concernent pas implicitement A ; 
il faut donc les remplacer par LSR A 
RORA) 


* UTILITAIRES DOUBLE HAUTE RESOLUTION 

* 

* R.JOST - 1986 

* Edasm ProDOS/ProCODE 

* 

ORG $800 


IMAGES DOUBLE HAUTE RESOLUTION - R.Jost (1986) 


Manu Principal » 


! Chargement d'une image ! 
! 


! 

i 

! 


! 


Charger une image 1 6K 
Charger deux images 
Charger deux images HGR 
Charger une image HGR 
Retour au MENU principal 


! 


JMP 

TRANSFERT 

JMP 

INVDHGR 

JMP 

MI RH OR 

JMP 

DBLHGR 

JMP 

HGRDHGR 

JMP 

ECHANGE 

JMP 

COPIEGD 

JMP 

COPIEDG 

JMP 

IN VG AUC 

JMP 

INVDROI 

JMP 

ERREUR 

JMP 

INKEY 

JMP 

ACTIVE 

JMP 

DESACTIV 


AIL 

EQU 

$3C 

A1H 

EQU 

$3D 

A2L 

EQU 

$3E 

A2H 

EQU 

$3F 

A4L 

EQU 

$42 

A4H 

EQU 

$43 

CHOIX 

EQU 

$06 

AUXMOVE 

EQU 

$C311 


* NEGATIF DE LA PAGE DHGR 
ADRESSE EQU $06 


Choisir avec les fléchés / Valider par <ENTER> / Quitter par <ESC> 


DHGRTOOL : Présentation type 'AppleWorks' et ergonomie plaisante 


ProDOS 

][+ 
Ile 
//< Sh 

Ile 

llgs 



routine de transfert 


SAUVE 

EQU 

$09 




LINNUM 

EQU 

$50 




MEMPRINC 

EQU 

$C054 

; 

sélectionne la page 

1 

MEMAUXI 

* 

EQU 

$C055 

! 

sélectionne la page 

IA 

INVDHGR 

* 

NOP 






LDX 

#$00 





STX 

ADRESSE 





LDX 

#$20 





STX 

ADRESSE+1 

; 

on démarre en $2000 


INV0 

LDY 

#$00 




INV1 

STA 

MEMAUXI 





LDA 

(ADRESSE) , 

Y 




EOR 

#$FF 

; 

inverse un octet en 

IA 


STA 

(ADRESSE) , 

Y 




STA 

MEMPRINC 





LDA 

(ADRESSE) , 

Y 




EOR 

#$FF 

; 

inverse un octet en 

1 


STA 

(ADRESSE) , 

Y 




DEY 






BNE 

INV1 

; 

ceci sur 256 octets 
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INC 

ADRESSE+1 ■ 


DEX 



BNE 

INVO 


RTS 


* 



* MIROIR 

HORIZONTAL 

* 



MIRHOR 

NOP 


* 



ZI 

EQU 

$06 

Z2 

EQU 

$07 

DEPART 

EQU 

$18 

ARRIVEE 

EQU 

$1A 

TAMPON 

EQU 

$1C 

XI 

EQU 

$EB 

X2 

EQU 

$EC 

Y1 

EQU 

$ED 

Y2 

je 

EQU 

$EE 

* 




LDX 

#$00 


STX 

XI 


STX 

Y1 


STX 

ZI 


LDX 

# 191 


STX 

Z2 


STX 

Y2 


LDX 

#40 


STX 

X2 

HOR1 

LDX 

ZI 


JSR 

CALCADR 


STA 

DEPART 


STY 

DEPART +1 


LDX 

Z2 


JSR 

CALCADR 


STA 

ARRIVEE 


STY 

ARRIVEE+1 


LDY 

XI 

H0R2 

STA 

MEMAUXI 


LDA 

(DEPART) , Y 


P HA 



LDA 

(ARRIVEE) , Y 


STA 

(DEPART) , Y 


P LA 



STA 

(ARRIVEE) , Y 


STA 

MEMPRINC 


LDA 

(DEPART) , Y 


P HA 



LDA 

(ARRIVEE) , Y 


STA 

(DEPART) , Y 


P LA 



STA 

(ARRIVEE) , Y 


INY 



CP Y 

X2 


BNE 

H0R2 


INC 

ZI 


DEC 

Z2 


SEC 



LDA 

Z2 


SBC 

ZI 


BCS 

HOR1 


RTS 


* 



* HGR — 

> DHGR 

* 



* transforme 

une image HGR 

* 



DBLHGR 

NOP 


* 



* 




LDX 

#$00 


STX 

ADRESSE 


LDX 

#$20 


STX 

ADRESSE+1 ; 

BOUCO 

LDY 

#$00 

BOUC1 

LDA 

(ADRESSE) , Y 


STX 

SAUVE 


JSR 

DEDOUBLE 


LDX 

SAUVE 


et 32 fois. 


initialisation des pointeurs 

; 192 lignes 

40 octets par ligne 

calcul des adresses de départ 

et d'arrivée 


on traite 1 ligne 
on s'occupe de la page IA 


et de la page 1 


fin. de la ligne ? 

on passe a la ligne suivante 


en image DHGR 


l'image est en page 1 
? on traite tous les octets 
en dupliquant chaque bit 


STA ME MAU XI ; le 1er octet est charge en page 

IA 

LD A LINNUM 
STA (ADRESSE) , Y 

STA MEMPRINC ; le 2ème en page 1 
LDA LINNUM+1 
STA (ADRESSE ) , Y 
DEY 

BNE B0UC1 
INC ADRESSE+1 
DEX 

BNE BOUCO 
RTS 


* dédouble chacun des 7 premiers bits d'un octet HGR 

* et stocke dans deux octets en conservant le bit de 

* couleur, cf. Pascal Cantot, Pom's 20 


DEDOUBLE 

LDX 

#$00 


STX 

LINNUM 


STX 

LINNUM+1 


LDX 

#$7 

DECAL 

ASL 



PHP 



JSR 

ROLINNUM 


PLP 



JSR 

ROLINNUM 


DEX 



BPL 

DECAL 


JSR 

ROLINNUM 


LSR 

LINNUM 


RTS 


ROLINNUM 

ROL 

LINNUM 


ROL 

LINNUM+1 


RTS 



* 2 IMAGES HGR 

* 

* stocke 2 images HGR côte à côte en DHGR 

* 

* copie 1 'image chargée en page 2 

* ($4000-$5FFF) dans une moitié de page DHGR 

* 

* appel par CALL AD,X 

* X = numéro de la 1ère colonne ( 0<=X<=20 ) 


HGRDHGR 

NOP 




XAO 

EQU 

$1C 



XA1 

jr 

EQU 

$1D 



GETBYTC 

EQU 

$E6F5 




LDY 

#00 




STY 

XI 




STY 

Y1 




LDY 

#40 

; 

40 octets 


STY 

X2 




LDY 

#191 

; 

192 lignes 


STY 

Y2 




JSR 

GETBYTC 

; 



STX 

XAO 

; 

numéro 1ère colonne 


STX 

XA1 



BOUCLE 

LDX 

Y2 




JSR 

CALCADR 




STA 

DEPART 




TYA 





CLC 





ADC 

#$20 




STA 

DEP ART +1 

; 

adresse ligne départ en 


JSR 

CALCADR 




STA 

ARRIVEE 




STY 

ARRIVEE+1 

; 

adresse ligne en page 1 

LIGNE 

LDY 

XI 




LDA 

(DEPART) , Y 

; 

40 octet par ligne 


P HA 





INY 





LDA 

(DEPART) , Y 




ou IA 
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contenu de 2 octets DHGR 


INY RTS 

STY XI * 

LDY XA1 * échange le 



STA 

MEMPRINC ; stocke en page 1 

* 





STA 

(ARRIVEE) , Y 

SWAP3 

LDA 

(DEPART ) , Y 



P LA 



STA 

TAMPON 



STA 

MEMAUXI ; stocke en page IA 


TYA 




STA 

(ARRIVEE) , Y 


PHA 




INC 

XA1 


CLC 




STA 

MEMPRINC 


ADC 

#20 



LDA 

XI 


TA Y 




CMP 

X2 


LDA 

(DEPART) , Y 



BNE 

LIGNE 


STA 

T AMP ON +1 



LDA 

#$00 


LDA 

TAMPON 



STA 

XI 


STA 

(DEPART) , Y 



LDA 

XAO 


P LA 




STA 

XA1 


TA Y 




DEC 

Y2 


LDA 

T AMP ON +1 



LDA 

Y2 


STA 

(DEPART) , Y 



CMP 

#$FF 


RTS 




BNE 

BOUCLE 

* 





RTS 


* 




* 



* COPIE 

MOITIE PAGE DHGR GAUCHE 

DANS DROITE 

* calcule l'adresse d'un octet en page HGR à partir 

* 




* des tables 

TAB1I et TAB1H . 

* 




* 



COPIEGD 

LDX 

#$00 


CALCADR 

TXA 



STX 

XI 



LSR 



STX 

Y1 



LSR 



LDX 

#192 



LSR 



STX 

Y2 



TA Y 



LDX 

#20 



LDA 

TAB1 L, Y 


STX 

X2 



PHA 


COP1 

LDX 

Y1 



TXA 



JSR 

CALCADR 



AND 

#$07 


STA 

DEPART 



ASL 



STY 

DEPART+1 



ASL 



LDY 

XI 



CLC 


COP 2 

STA 

MEMAUXI 



ADC 

TAB1H, Y 


JSR 

COP 3 



TA Y 



STA 

MEMPRINC 



P LA 



JSR 

COP 3 



RTS 



INY 



* 




CP Y 

X2 


* 




BNE 

COP 2 


TAB1L 

DFB 

$00, $80, $00, $80, $00, $80, $00, $80 


INC 

Y1 



DFB 

$28, $A8, $28, $A8, $28, $A8, $28, $A8 


LDA 

Y1 



DFB 

$50, $D0, $50, $D0, $50, $D0, $50, $D0 


CMP 

Y2 


TAB1H 

DFB 

$20, $20, $21 , $21, $22, $22, $23, $23 


BNE 

COP1 



DFB 

$20, $20, $21, $21, $22, $22, $23, $23 


RTS 




DFB 

$20, $20, $21, $21, $22, $22, $23, $23 





* 



COP3 

LDA 

(DEPART) f Y ; copie 

1 'octet X e 

* 




STA 

TAMPON 


* ECHANGE DE . 

DEUX MOITIES DHGR 


TYA 



* 




PHA 



* copie 

la moitié gauche dans la droite et vice-versa 


CLC 



* 




ADC 

#20 


ECHANGE 

LDX 

#$00 


TA Y 




STX 

XI 


LDA 

TAMPON 



STX 

Y1 


STA 

(DEPART) , Y 



LDX 

#192 


P LA 




STX 

Y2 


TA Y 




LDX 

#20 


RTS 




STX 

X2 

* 




SMAP1 

LDX 

Y1 

* 





JSR 

CALCADR 

* COPIE 

MOITIE PAGE DHGR DROITE DANS GAUCHE 


STA 

DEPART 

* 





STY 

DEPART +1 

* 





LDY 

XI 

COPIEDG 

LDX 

#20 


SWAP2 

STA 

MEMAUXI 


STX 

XI 



JSR 

S WAP 3 


LDX 

#$00 



STA 

MEMPRINC 


STX 

Y1 



JSR 

SWAP3 


LDX 

#192 



INY 



STX 

Y2 



CP Y 

X2 


LDX 

#40 



BNE 

SWAP2 


STX 

X2 



INC 

Y1 

COPY1 

LDX 

Y1 



LDA 

Y1 


JSR 

CALCADR 



CMP 

Y2 


STA 

DEPART 



BNE 

SWAP1 


STY 

DEPART+1 
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LD Y XI 

COP Y 2 STA MEMAUXI 

JSR C0PY3 
STA MEMPRINC 
JSR COP Y 3 
INY 

CP Y X2 
BNE COP Y 2 
INC Y1 
LDA Y1 
CMP Y2 
BNE C0PY1 
RTS 


COP Y 3 


LDA 
STA 
TYA 
PHA 
SEC 
SBC 
TA Y 
LDA 
STA 
P LA 
TA Y 
RTS 


(DEPART) , Y 
TAMPON 


#20 

TAMPON 
(DEPART) , Y 


* INVERSE MOITIE GAUCHE 


INVGAUC LDX #00 
STX XI 
LDX #$00 
STX Y1 
LDX #1 92 
STX Y 2 
LDX #20 
STX X2 
JMP INV 

* 

* INVERSE MOITIE DROITE 

* 

INVDROI LDX #20 
STX XI 
LDX #00 
STX Y1 
LDX #192 
STX Y 2 
LDX #40 
STX X2 
JMP INV 


TRF1 


TRF2 


TRFFIN 

TRANSO 


TRANSI 


INITMOVE 


JSR 

GETBYTC 

STX 

CHOIX 

JSR 

GETBYTC 

CPX 

#0 

BNE 

TRF1 

JSR 

TRANSO 

RTS 


CPX 

#1 

BNE 

TRF2 

JSR 

TRANSI 

RTS 


CPX 

#2 

BNE 

TRFFIN 

JSR 

TRANSO 

JSR 

TRANSI 

RTS 


LDX 

CHOIX 

STA 

MEMPRINC 

JSR 

INITMOVE 

LDA 

DEBUT1 , X 

STA 

A1H 

LDA 

FINI, X 

STA 

A2H 

LDA 

NOUV1 , X 

STA 

A4H 

TXA 


ROR 


JSR 

AUXMOVE 

RTS 


LDX 

CHOIX 

JSR 

INITMOVE 

LDA 

DEBUT2, X 

STA 

A1H 

LDA 

FIN2, X 

STA 

A2H 

LDA 

N0UV2, X 

STA 

A4H 

STA 

MEMAUXI 

TXA 


ROR 


JSR 

AUXMOVE 

STA 

MEMPRINC 

RTS 


LDA 

#$00 

STA 

AIL 

STA 

A4L 

LDA 

#$FF 

STA 

A2L 

RTS 



; Init ial ise les octets bas 
; des adresses utilisées 
; par AUXMOVE. 


; tables des adresses hautes 
; utilisées par AUXMOVE 


INV 


INV2 


INV3 


LDX 

Y1 

DEBUT1 

DFB 

$20, $40, $40, $20, $80, $20 

JSR 

CALCADR 

FINI 

DFB 

$3F, $5F, $5F, $3F, $9F, $3F 

STA 

DEPART 

NOUV1 

DFB 

$40, $20, $20, $40, $20, $80 

STY 

DEPART +1 

DE BUT 2 

DFB 

$20, $20, $60, $20, $A0, $20 

LD Y 

XI 

FIN2 

DFB 

$3F, $3F, $7 F, $3F, $BF, $3F 

STA 

MEMAUXI 

N0UV2 

DFB 

$40, $40, $20, $60, $20, $A0 

JSR 

INV3 

ERREUR 

P LA 


STA 

MEMPRINC 


TA Y 


JSR 

INV3 


P LA 


INY 



LDX 

$DF 

CP Y 

X2 


TXS 


BNE 

INV2 


PHA 


INC 

Y1 


TYA 


LDA 

Y1 


PHA 


CMP 

Y2 


RTS 


BNE 

INV 

* 



RTS 


* DRIVER 

* 

IMPRIMANTE 

LDA 

(DEPART) , Y ; inverse un octet 

OLDVEC . 

EQU 

$2FE 


EOR 

STA 

RTS 


#$FF 

(DEPART) , Y 


* Sauve les valeurs dans VECTIN ($BE30-31) 

* et les remplace par le port imprimante. 


* TRANSFERT DE PAGE DHGR 


I TRANSFERT NOP 


ACTIVE LDA $BE30 
STA OLDVEC 
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LDA $BE31 
STA OLDVEC+1 
LDA #$00 
STA $BE30 
LDA #$C1 
STA $BE31 
RTS 

k 

* Redirige les sorties vers la 

* carte 80 colonnes (slot 3) . 

k 

DESACTIV LDA OLDVEC 
STA $BE30 
LDA OLDVEC+1 
STA $BE31 
RTS 

k 

* SAISIE D'UNE TOUCHE 


VARPNT 

EQU 

$83 

; adresse de la dernière variable 

KBD 

EQU 

$C000 


STROBE 

EQU 

$C010 



Source HARD.S 

II s'agit du source publié dans le 
numéro 18 de Pom's. 


Programme DHGRTOOL 

10 IF PEEK (103) + PEEK (104) * 256 < > 2457 

7 THEN P0KE 103,1: POKE 104,96: PCKE 2457 
6,0: PRINT CHR$ (4) "RUN DHGRTOOL" 

20 GOTO 20000 

100 REM CHARGEMENT D'UNE IMAGE 
110 ER = 0:CX = CX (NM) :CY = CY (NM) : GOSUB 500: P 
OKE 32, CX + 1: VT AB CY + 3: POKE 33, CX + 5 
0: POKE 34, CY + 2: POKE 35, CY + 15 
115 PRINT D$"PREFIX, DI " 

120 PRINT D$ "PREFIX " : INPUT DIR$ 

130 PRINT D$"OPEN"DIR$", TDIR" 

140 PRINT D$ "READ "DIR$ 

145 INPUT T$: INPUT T$ : INPUT T$ 

150 ONERR GOTO 180 
155 I = 0 

160 INPUT N AME $ : N AME $ = NAME$ + "" 

162 IF NAME$ = "" THEN 180 

164 IF MID$ (NAME$, 18, 3) < > "BIN" THEN 160 

166 IF MID$ (NAME$, 26, 3) < > TA$ THEN 160 

168 IF MID$ (NAME$, 76, 4) < > "2000" AND MID$ 

(NAME$ , 76,4) < > "4000" THEN 160 

172 1 = 1 + 1 :S$ (4, 1) = LEFT$ (NAME$,15) : GOTO 
160 

180 POKE 216,0: PRINT D$"CLOSE" : IF I > 12 THEN 

I = 12 

181 SI = I: IF SI = 0 THEN PRINT CHR$ (7)" Auc 

une image sur ce disque GET R$: POP : 
RETURN 

182 IM = 4: HL = 6: HT =10 

184 GOSUB 1020: TF K = 27 THEN POP : RETURN 
186 NAME$ = S$ (4, Cl) 

190 IF CO = 2 THEN RETURN 
230 REM 

260 PRINT : PRINT D$"BLOAD"NAME$;A$ 

290 RETURN 

300 REM SAISIE D'UN NOM DE FICHIER 
310 : 

320 HT AB 1: VT AB 23: TEXT : CALL - 868: PRINT 


CHKCOM 

EQU 

$DEBE 



PTRGET 

EQU 

$DFE3 ■ 



SGNFLT 

EQU 

$E301 

; 

rend flottant 1 'entier sans signe 

MOVMF 

EQU 

$EB2B 

; 

transfère FAC dans octet pointé 

k 

par ; 

K et Y 



k 

INKEY 

JSR 

CHKCOM 




JSR 

PTRGET 



KEY 

LDA 

KBD 




BPL 

KEY 




BIT 

STROBE 




CMP 

#$FF 




BEQ 

KEY1 




CMP 

#$E0 

; 

est-ce une minuscule ? 


BCC 

KEY1 




AND 

#$DF 

; 

convertit en majuscule 

KEY1 

AND 

#$7 F 

; 

bit 7 à zéro 


TA Y 





JSR 

SGNFLT 

; 

convertit Y en flottant dans FAC 


LDX 

VARPNT 

; 

adresse de la variable 


LD Y 

VARPNT +1 




JSR 

MOVMF 

; 

transfère FAC dans la variable 


RTS 




ti 

'Tapez 

le nom 

de 

1 'image, puis <Enter> // 


<ESC> 

pour annuler"/ 

330 ER 

= 0 :CX = CX(NM) 

: CY = CY (NM) : GOSUB 500: P 


OKE 32, CX + 1: VTAB CY + 3 
340 POKE 33, CX + 50 
350 POKE 34, CY + 2: POKE 35, CY +14 

360 M$ = HTAB 1: VTAB 10 

361 PH = PEEK (1403) + 1 :PV = PEEK (37) +1:1 

NVERSE : PRINT " NORMAL : HTAB PH: VT A 
B PV: CALL TCHE, R 

362 IF R = 27 THEN RETURN 

363 IF R = 8 OR R = 12 7 THEN GOSUB 390: GOTO 3 
61 

364 IF R = 13 AND M$ < > "" THEN PRINT " 

GOTO 450 

365 IF R < 46 OR (R > 57 AND R < 65) OR (R > 90 

AND R < 97) OR R > 122 THEN POKE 1403, P 
EEK (1403) - 1 : GOTO 361 
370 PRINT CHR$ (R); 

375 M$ = M$ + CHR$ (R) 

380 GOTO 361 

390 HTAB PH: VTAB PV: PRINT " IF LEN (M$) 

= 0 THEN PRINT CHR$ (7);: POKE 1403, PEE 
K (1403) - 2: RETURN 

391 IF LEN (M$) < = 1 THEN POKE 1403, PEEK ( 

1403) - 2 :M$ = RETURN 

392 POKE 1403, PEEK (1403) - 2:M$ = LEFT$ (M$, 

LEN (M$) - 1) : RETURN 
450 PRINT D$"BSAVE"M$ ", A$2000, L$3FFF" 

480 IF ER < > 0 THEN ER = 0: GOTO 330 

490 RETURN 

499 : 

500 REM DESSIN D'UN CADRE 
510 : 

520 POKE 32, CX + 1: POKE 33, CX + 60: POKE 34, CY 
: POKE 35. C Y + 15: HOME : TEXT 
530 HTAB CX + 5: VTAB CY + 1: PRINT IT$ 

540 VTAB CY: HTAB CX + 2: FOR I = CX + 2 TO CX 
+ 27: PRINT NEXT 

550 VTAB CY + 15: HTAB CX + 1 : FOR I = CX + 1 T 

0 CX + 60: PRINT NEXT : PRINT 

560 VTAB CY + 1: HTAB CX + 28: PRINT FOR 

1 = CX + 29 TO CX + 60: PRINT NEXT 

570 FOR I = CY + 1 TO CY + 15: POKE 36, CX: VTAB 

I: PRINT NEXT 

580 FOR I = CY + 2 TO CY + 15: POKE 36, CX + 60: 

VTAB I: PRINT NEXT 

V 
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590 RETURN 
599 : 

7 90 REM SORTIE DU PROGRAMME 

800 HTAB 1: VTAB 23: TEXT : CALL - 868: PRI 
NT "Avez-vous vraiment décidé d' arrêter 

(G/N) ? : GET R$ 

801 : 

810 IF R$ < > "0" AND R$ < > "O" THEN RET 

URN 

820 HOME : END 
890 : 

900 REM SAUVEGARDE D'UNE IMAGE SUR DISK 
905 : 

910 POKE 49236,0 

920 POKE 49152, 0: CALL TRANSFERT, 0, 1 : POKE 4 
9153,0: REM TRANSFERT MEM AUXI EN PAGE 
2 PRINCIPALE 

930 IT$ = "Sauvegarde" :NM = 2:FL = 1: GOSUB 3 
00 

955 FL = 0 
960 RETURN 
990 : 

1000 REM AFFICHAGE MENU 
1005 : 

1010 Cl = 2 ; CX = CX (NM) : CY = CY(NM):IT$ = IT$ 
(IM): GOSUB 500: HT = HT (NM): SI = S (IM): H 
L = HL (NM) 

1015 HTAB 1: VTAB 24: PRINT "Choisir avec le 
s fléchés / Valider par <ENTER> / Quitte 
r par <ESC> 

1020 Cl = 1 

1030 FOR X = 1 TO SI: IF X = Cl THEN INVERS 
E 

1040 VTAB HL +2+X+X* (SI < 10): HTAB H 
T: PRINT S$ (IM, X) : NORMAL 
1050 NEXT X 
1070 POKE - 16368,0 
1080 CALL TCHE, K 

1090 IF K > 48 AND K < 48 + SI THEN Cl = K: 
GOTO 1170 

1100 IF K < >8 AND K < >21 AND K < >13 

AND K < >10 AND K < >11 AND K < > 

27 THEN 1080 
1140 01 = Cl 

1150 IF K = 8 OR K = 11 THEN Cl = Cl - 1:C1 
= Cl * (Cl > 0) + SI * (Cl = 0) : GOSUB 1 
180: GOTO 1080 

1160 IF K = 21 OR K = 10 THEN Cl = Cl + 1 : Cl 
= Cl * (Cl < = SI) + (Cl = SI + 1): GO 

SUB 1180: GOTO 1080 


1170 

RETURN 





1180 

VTAB HL + 

2 + 01 

+ 01 * (SI < 

10) : 

HTAB 


HT: PRINT 

SS (IM, 

01) 



1190 

VTAB HL + 

2 + Cl 

+ Cl * (SI < 

10) : 

INVE 


RSE : HTAB 

HT: PRINT S$ ( IM, Cl ) 

: NORMAL : 


RETURN 





1200 

: 





4990 

: 





5000 

REM HARD 

COPY 




5005 

: 





5007 

HTAB 1: VTAB 24: 

PRINT " Entrer la 

nouv 


elle valeur / Valider par <ENTER> / Qui t 


ter par <ESC> 

5010 CX = CX (NM) : CY = CY(NM):IT$ = "Hard copy 
": GOSUB 500 

5020 POKE 768,0: POKE 7 69,0: REM IMAGE NORM 
ALE ET 560*192 

5030 POKE 32, CX + 4: VTAB CY + 4 : PRINT 


5040 W$ = PIS: PRINT "ECHELLE HORIZONTALE (1/ 
2) ?";: GOSUB 5300: IF W < >13 THEN PI 

$ = W$: POKE 36, HT + 15: VTAB VT + 1 : PR 

INT PIS: PRINT 

5050 W$ = P2S: PRINT "ECHELLE VERTICALE (1/ 
2) ?";: GOSUB 5300: IF W < >13 THEN P2 

$ = W$: POKE 36, HT + 15: VTAB VT + 1: PR 

INT P2$: PRINT 

5070 IF PIS = "2" AND P2$ = "1" THEN FOR I 
= 0 TO 4: POKE 4423 + 1,234: NEXT :P3$ = 
"002": GOTO 5140 

5080 IF PIS = "1" AND P2$ = "2" THEN POKE 7 
68,128: FOR I = 5 TO 7 ; POKE 4423 + 1,23 
4: NEXT 

5090 IF PIS = "2" AND P2$ = "2" THEN POKE 7 
68, 128 :P3$ = "002" : GOTO 5140 
5100 W$ = P3S 

5110 PRINT "MARGE GAUCHE ?";:HT = PEEK (36) 
:VT = PEEK (37): PRINT P 3$; : POKE 36, HT 
+ 2: VTAB VT + 1: INPUT "";P3$: PRINT P 
3$; 

5120 IF P3$ = "" THEN P3$ = W$ 

5130 P3$ = RIGHTS ("000" + P3S, 3) 

5140 CALL ACTIVE 

5150 PRINT CHR$ (27) + CHR$ (62);: PRINT 
CHR$ (27) + CHRS (76) + P3$; 

51 60 CALL HARDCOPY 

5185 POKE 4423,44: POKE 4424,0: POKE 4425,3: 

POKE 4426, 16: POKE 4427,3: POKE 4428, 32 
: POKE 4429,237: POKE 4430,253 
5 190 TEXT : HOME 
5200 RETURN 

5300 HT = PEEK (36): VT = PEEK (37): PRINT W 

S; 

5305 POKE 36, HT + 15: VTAB VT + 1 : CALL TCHE 
,W 

5310 IF W = 27 THEN POP : RETURN 
5312 IF W = 13 THEN 5320 

5315 IF (W < > 49 AND W < >50) THEN PRIN 

T CHRS (7);: GOTO 5305 
5320 W$ = CHRS (W) : PRINT M$ : RETURN 

8999 : 

9000 REM MENU PRINCIPAL 
9010 : 

9020 TEXT : HOME 

9030 PRINT " IMAGES DOUBLE HAUTE RESOLU 

TI ON - R.Jost (198 6)" 

9040 NM = 1 : IM = 1 
9050 GOSUB 1000 

9055 IF K = 27 THEN GOSUB 800: GOTO 9020 
9060 NM = 2 ; ON Cl GOSUB 10000, 12000, 900, 5000 
, 800 

9070 GOTO 9020 
9990 : 

10000 REM MENU CHARGEMENT 
10010 : 

10020 IM = 2: GOSUB 1010 
10030 IF K = 27 THEN RETURN 

10040 NM = 3:C0 = C1:TA$ = " 17": IF CO = 1 T 
HEN TA$ = " 33 " 

10050 ON Cl GOSUB 10070, 10080, 10120, 10130 : T 
EXT : HOME 
10060 RETURN 

10070 POKE 49236, 0:IT$ = "Image DHGR 16K":A$ 
= ", AS2000 " : GOSUB 100: POKE 49152,0: C 
ALL TRANSFERT, 1, 0: POKE 49153,0: GOSUB 1 
2070: POKE 49236,0: RETURN 
10080 ITS = "deux moitiés DHGR" 


K 
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10090 POKE 49236,0: GOSUB 100:A$ = ",A$2000" 
: POKE 49237, 0: GOSUB 260 
10100 POKE 49236,0: GOSUB 181: GOSUB 260: GO 
SUB 12070 
10110 RETURN 

10120 POKE 49236, 0 : IT$ - "deux Images HGR":A 
$ = ", A$4000 " : GOSUB 100: CALL H1,0: GOS 
UB 181: CALL Hl,20: GOSUB 12070: RETURN 
10130 I T$ = "image HGR -> DHGR 16K":A$ = " , A$ 
2000": GOSUB 100: CALL H2 : GOSUB 12070: 
RETURN 
11990 : 

12000 REM TRAITEMENT IMAGE 
12010 : 

12020 IM = 3:NM = 2 

12030 GOSUB 1010 

12040 IF K = 27 THEN RETURN 

12045 IF Cl - 1 THEN GOSUB 12070: GOSUB 107 
0: GOTO 12040 

12050 ON Cl GOSUB 12070, 12080, 12100, 12110, 12 
120, 12130, 12090, 12150, 121 70, 12140, 121 60, 
12180: GOSUB 12070: GOSUB 1070 
12060 GOTO 12040 

12070 POKE 49160, 0: POKE 49165, 0:X = PEEK ( 
49232) + PEEK (49234) + PEEK (49239) + 
PEEK (49246): REM AFFICHE L'IMAGE 
12072 R = PEEK ( - 16384): ON R < 128 GOTO 1 
20 72 : R = R - 128: POKE - 16368,0 

12074 IF R = 13 OR R = 27 THEN TEXT : RETUR 
N 

12075 GOTO 12072 

12080 HGR : POKE 49234,0: POKE 49237,0: CALL 
62450: POKE 49236,0: RETURN : REM EFFA 
CE L'IMAGE 

12090 CALL NEG: TEXT : RETURN : REM NEGATIF 
■ DE L'IMAGE 

12100 CALL TRANSFERT, 3, 2 : TEXT : RETURN : RE 
M TRANSFERT EN MEM AUXI 
12110 CALL TRANSFERT, 5, 2 : TEXT : RETURN : RE 
M VERS MEM AUXI S8000-BFFF 
12120 CALL TRANSFERT, 2, 2 : TEXT : RETURN : RE 
M RAPPEL DE LA MEM AUXI 
12130 CALL TRANSFERT, 4, 2: TEXT : RETURN : RE 
M RAPPEL AUXI $8000-BFFF 
12140 CALL CG: RETURN : REM COPIE GAUCHE -> 
DROITE 

12150 CALL IG: RETURN : REM INVERSE PARTIE 
GAUCHE 

12160 CALL MI: RETURN : REM MIROIR 
12170 CALL ECHANGE: RETURN : REM PERMUTER L 
ES DEUX MOITIES DE L 'ECRAN DHGR 
12180 POP : RETURN 
14990 : 

15000 REM TRAITEMENT ERREUR DOS 
15005 : 

15010 CALL FAUTE 

15020 PRINT CHR$ (7);: HTAB 1: VTAB 15 
15030 ER = PEEK (222) : EL = PEEK (218) + 256 
* PEEK (219) 

15040 INVERSE 

15050 IF ER = 4 THEN PRINT "DISK PROTEGE EN 
ECRITURE"/ : GOTO 15120 

15060 IF ER = 6 AND EL = 20090 THEN PRINT " 
METTRE UNE DISQUETTE CONTENANT DHGRTOOL. 
0": CALL - 741: GOTO 20090 
15070 IF ER = 6 AND EL = 20095 THEN PRINT " 
LE PROGRAMME HARD (POM'S i (18 ) DOIT FIGUR 
ER SUR LA DISQUETTE": CALL - 741: GOTO 


20100 

15080 IF ER = 6 THEN PRINT "CE FICHIER N' EX 
ISTE PAS"/: GOTO 15120 

15090 IF ER = 8 THEN PRINT "ERREUR D'ENTREE 
/SORTIE ! "/: GOTO 15120 
15100 IF ER = 9 THEN PRINT "DISK REMPLI "/: 

PRINT D$ "DELETE "M$ : GOTO 15120 
15110 PRINT "ERREUR #"ER" A LA LIGNE #"EL: T 
EXT : END 

15120 NORMAL : FOR T = 1 TO 2000: NEXT : PRI 
NT CHR$ (7)/ 

15130 IF EL = 450 OR EL = 460 THEN 480 
15140 END 
19990 : 

20000 REM 
20005 : 

20010 TEXT : HOME : ONERR GOTO 15020 
20040 D$ = CHR$ (4): PRINT D$"PR#3" 

20070 TRANSFERT = 2048 :NEG = TR + 3:MI = TR + 
6 : : H 2 = TR + 9:H1 = TR + 12:EC = TR + 1 
5: CG = TR + 18: IG = TR + 24: FAUTE = TR + 
30 : HARDCOPY = 4144 

20080 TCHE = TR + 33:ACTIVE = TR + 36 : DESACTI 
VE = TR + 39 

20090 IF PEEK (2048) + PEEK (2050) < > 86 
THEN PRINT D$ "BLOAD DHGRTOOL. 0" 

20095 IF PEEK (4144) + PEEK (4154) < > 38 
5 THEN PRINT D$" BLOAD HARD, A$1 000" 

20096 POKE 4304,16: POKE 4334,16: POKE 4339, 
16: POKE 4443,16: POKE 4453,16: POKE 448 
7,16 

20097 POKE 4151,234: POKE 4152,234: POKE 415 
3,234: POKE 4 506 , DESACTIV / 256: POKE 45 
05, DESACTIV - PEEK (4506) * 256: REM 
MODIFIE LES APPELS PR# DANS HARD. 

20100 DIM S$ (5, 14) 

20105 ONERR GOTO 15000 

20110 PIS = "1 " :P2$ = "1 ":P3$ = "002" 

20120 DATA "Charger une Image", "Trait 

er 1 'image", "Sauver une image DHGR", 
"Imprimer une image DHGR", "Quitter" 

20130 S(l) = 5: FOR I = 1 TO S(l): READ S$(l, 
I) : NEXT :HT (1) = 25:HL(1) = 2:CX(1) = 5 
:CY(1) = 2:IT$(1) = "Menu Principal" 
20140 DATA "Charger une image 16K", "C 

harger deux Images DHGR", "Charger deu 
x images HGR", "Charger une image HGR" 

, "Retour au MENU principal" 

20150 S (2) = 5: FOR I = 1 TO S (2): READ S$(2, 
I) : NEXT : HT (2) = 28:HL(2) = 4:CX(2 ) = 7 
:CY (2) = 4:IT$(2) = "Chargement d'une im 
âge" 

20160 DATA "Voir l'image", "Effacer 

l'image", "Sauver en mem auxi-1", 
"Sauver en mem auxi-2", "Rappel de la 
mem auxi-1", "Rappel de la mem auxi- 
2" 

20170 DATA "Négatif de l'image", "Ne 

gatif moitié gauche", "Permute les de 
ux moitiés", "Copie moitié gauche a d 
roi te", "Miroir", "Retour au MENU 
principal " 

20180 S (3) = 12: FOR I = 1 TO S (3): READ S$ (3 
,1): NEXT : HT (3) = 31:HL(3) = 3:CX(3) = 
9:CY (3) = 6:IT$(3) = "Traitement image" 
20210 X = PEEK (49239): NORMAL : GOTO 9000 
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Récapitulation 

DHGRTOOL.O 

Après avoir 

saisi ce code 

sous moniteur, 

vous le sauvegarderez 

par : 

BSAVE DHGRTOOL .C, A$800, L$3 9B 


0800- 

4C 

B7 

OA 

4C 

2A 

08 

4C 

50 

0808- 

08 

4C 

A2 

08 

4C 

EC 

08 

4C 

0810- 

8F 

09 

4C 

DB 

09 

4C 

1F 

OA 

0818- 

4C 

65 

OA 

4C 

78 

OA 

4C 

47 

0820- 

OB 

4C 

75 

OB 

4C 

51 

OB 

4C 

0828- 

68 

OB 

EA 

A2 

00 

86 

06 

A2 

0830- 

20 

86 

07 

AO 

00 

8D 

55 

CO 

0838- 

B1 

06 

49 

FF 

91 

06 

8D 

54 

0840- 

CO 

B1 

06 

49 

FF 

91 

06 

88 

0848- 

DO 

EB 

E6 

07 

CA 

DO 

E4 

60 

0850- 

EA 

A2 

00 

86 

EB 

86 

ED 

86 

0858- 

06 

A2 

BF 

86 

07 

86 

EE 

A2 

0860- 

28 

86 

EC 

A6 

06 

20 

4A 

09 

0868- 

85 

18 

84 

19 

A 6 

07 

20 

4A 

0870- 

09 

85 

IA 

84 

IB 

A4 

EB 

8D 

0878- 

55 

CO 

B1 

18 

48 

B1 

IA 

91 

0880- 

18 

68 

91 

IA 

8D 

54 

CO 

B1 

0888- 

18 

48 

B1 

IA 

91 

18 

68 

91 

0890- 

IA 

C8 

C4 

EC 

DO 

El 

E6 

06 

0898- 

C6 

07 

38 

A5 

07 

E5 

06 

BO 

08A0- 

C2 

60 

EA 

A2 

00 

86 

06 

A2 

08A8- 

20 

86 

07 

AO 

00 

B1 

06 

86 

08B0- 

09 

20 

CD 

08 

A6 

09 

8D 

55 

08B8- 

CO 

A5 

50 

91 

06 

8D 

54 

CO 

08C0- 

A5 

51 

91 

06 

88 

DO 

E6 

E6 

08C8- 

07 

CA 

DO 

DF 

60 

A2 

00 

86 

08D0- 

50 

86 

51 

A2 

07 

OA 

08 

20 

08D8- 

E7 

08 

28 

20 

E 7 

08 

CA 

10 

08E0- 

F4 

20 

E7 

08 

46 

50 

60 

26 

08E8- 

50 

26 

51 

60 

EA 

AO 

00 

84 

08F0- 

EB 

84 

ED 

AO 

28 

84 

EC 

AO 

08F8- 

BF 

84 

EE 

20 

F5 

E6 

86 

IC 

0900- 

86 

1D 

A6 

EE 

20 

4A 

09 

85 

0908- 

18 

98 

18 

69 

20 

85 

19 

20 

0910- 

4A 

09 

85 

IA 

84 

IB 

A4 

EB 

0918- 

B1 

18 

48 

C8 

B1 

18 

C8 

84 

0920- 

EB 

A4 

1D 

8D 

54 

CO 

91 

IA 

0928- 

68 

8D 

55 

CO 

91 

IA 

E6 

1D 

0930- 

8D 

54 

CO 

A5 

EB 

C5 

EC 

DO 

0938- 

DD 

A9 

00 

85 

EB 

A5 

IC 

85 

0940- 

1D 

C6 

EE 

A5 

EE 

C9 

FF 

DO 

0948- 

B9 

60 

SA 

4A 

4A 

4A 

A8 

B9 

0950- 

5F 

09 

48 

SA 

29 

07 

OA 

OA 

0958- 

18 

79 

77 

OS 

AS 

68 

60 

00 

0960- 

80 

00 

80 

00 

80 

00 

80 

28 

0968- 

A8 

28 

AS 

28 

A8 

28 

AS 

50 

0970- 

DO 

50 

DO 

50 

DO 

50 

DO 

20 

0978- 

20 

21 

21 

22 

22 

23 

23 

20 

0980- 

20 

21 

21 

22 

22 

23 

23 

20 

0988- 

20 

21 

21 

22 

22 

23 

23 

A2 

0990- 

00 

86 

EB 

86 

ED 

A2 

CO 

86 


099S- EE A2 14 86 EC A6 ED 20 
09 AO- 4 A 09 85 18 84 19 A4 EB 
09A8- 8D 55 CO 20 C2 09 8D 54 
09B0- CO 20 C2 09 C8 C4 EC DO 
09B8- EF E6 ED A5 ED C5 EE DO 
09C0- DC 60 B1 18 85 IC 98 48 
09C8- 18 69 14 A8 B1 18 85 1D 
09D0- A5 IC 91 18 68 A8 A5 1D 
09D8- 91 18 60 A2 00 86 EB 86 
09E0- ED A2 CO 86 EE A2 14 86 
09E8- EC A6 ED 20 4 A 09 85 18 
09F0- 84 19 A4 EB 8D 55 CO 20 
09F8- OE OA 8D 54 CO 20 OE OA 
OAOO- C8 C4 EC DO EF E6 ED A5 
0A08- ED C5 EE DO DC 60 B1 18 
OAIO- 85 IC 98 48 18 69 14 A8 
0A18- A5 IC 91 18 68 A8 60 A2 
OA20- 14 86 EB A2 00 86 ED A2 
0A28- CO 86 EE A2 28 86 EC A6 
0A30- ED 20 4 A 09 85 18 84 19 
0A38- A4 EB 8D 55 CO 20 54 OA 
0A40- 8D 54 CO 20 54 OA C8 C4 
0A48- EC DO EF E6 ED A5 ED C5 
0A50- EE DO DC 60 B1 18 85 IC 
0A58- 98 48 38 E9 14 A8 A5 IC 
0A60- 91 18 68 A8 60 A2 00 86 
0A68- EB A2 00 86 ED A2 CO 86 
OAIO- EE A2 14 86 EC 4C 8B OA 
0A78- A2 14 86 EB A2 00 86 ED 
0A80- A2 CO 86 EE A2 28 86 EC 
0A88- 4C 8B OA A6 ED 20 4A 09 
0A90- 85 18 84 19 A4 EB 8D 55 
0A98- CO 20 BO OA 8D 54 CO 20 
OAAO- BO OA C8 C4 EC DO EF E6 
0AA8- ED A5 ED C5 EE DO DC 60 
OABO- B1 18 49 FF 91 18 60 EA 
0AB8- 20 F5 E6 86 06 20 F5 E6 
OACO- EO 00 DO 04 20 DB OA 60 
0AC8- EO 01 DO 04 20 F8 OA 60 
OADO- EO 02 DO 06 20 DB OA 20 
OAD 8- F8 OA 60 A6 06 8D 54 CO 
OAEO- 20 18 OB BD 23 OB 85 3D 
0AE8- BD 29 OB 85 3F BD 2F OB 
OAFO- 85 43 SA 6A 20 11 C3 60 
0AF8- A6 06 20 18 OB BD 35 OB 
OBOO- 85 3D BD 3B OB 85 3F BD 
0B08- 41 OB 85 43 8D 55 CO 8A 
0B10- 6A 20 11 C3 8D 54 CO 60 
OBI 8- A9 00 85 3C 85 42 A9 FF 
0B20- 85 3E 60 20 40 40 20 80 
0B28- 20 3F 5F 5F 3F 9F 3F 40 
0B30- 20 20 40 20 80 20 20 60 
0B38- 20 AO 20 3F 3F 7 F 3F BF 
0B40- 3F 40 40 20 60 20 AO 68 
0B48- A8 68 A6 DF 9A 48 98 48 
0B50- 60 AD 30 BE 8D FE 02 AD 
0B58- 31 BE 8D FF 02 A9 00 8D 
OB 60- 30 BE A9 Cl 8D 31 BE 60 
0B68- AD FE 02 8D 30 BE AD FF 
0B70- 02 8D 31 BE 60 20 BE DE 
OBI 8- 20 E3 DF AD 00 CO 10 FB 
0B80- 2C 10 CO C9 FF FO 06 C9 
0B88- EO 90 02 29 DF 29 7F A8 
0B90- 20 01 E3 A6 83 A4 


Récapitulation 

HARD 

Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par : 

BSAVE HARD, A$4000,L$1A1 


4000- 00 20 80 20 00 21 80 21 

4008- 00 22 80 22 00 23 80 23 

4010- 28 20 A8 20 28 21 A8 21 

4018- 28 22 A8 22 28 23 A8 23 

4020- 50 20 DO 20 50 21 DO 21 

4028- 50 22 DO 22 50 23 DO 23 

4030- D8 78 8D 54 CO A9 01 20 

4038- 95 FE A9 89 20 ED FD A9 

4040- DA 20 ED FD A9 8D 20 ED 

4048- FD A9 9B 20 ED FD A9 D4 

4050- 20 ED FD A9 B1 20 ED FD 

4058- A9 B6 20 ED FD AD 5E CO 

4060- AD 50 CO AD 57 CO AD 52 

4068- CO 8D OD CO 8D 01 CO 8D 

4070- 04 CO 8D 02 CO A9 00 8D 

4078- OA 03 8D 11 03 A9 FF 8D 

4080- 10 03 2C 00 03 10 10 AD 

4088- 10 03 49 FF 8D 10 03 2C 
4090- 10 03 10 03 CE OA 03 A9 
4098- 8D 20 ED FD A9 9B 20 ED 
40A0- FD A9 FO 20 ED FD A9 FF 
40A8- 8D OB 03 A9 00 8D OC 03 
40B0- A9 9B 20 ED FD A9 C 7 20 
40B8- ED FD A9 B1 20 ED FD A9 
40C0- B1 20 ED FD AS B2 20 ED 
40C8- FD A9 BO 20 ED FD 4C DI 
40D0- 40 A9 FF EE OB 03 4D OC 
40D8- 03 8D OC 03 8D 55 CO DO 
40E0- 06 8D 54 CO CE OB 03 AD 
40E8- OA 03 OA AA BD 00 40 85 
40F0- 18 BD 01 40 2C 00 03 10 
40F8- 08 2C 10 03 10 03 18 69 
4100- 10 85 19 A2 00 AC OB 03 
4108- A9 00 8D 11 03 B1 18 9D 
4110- 02 03 E8 EO 08 FO 18 2C 
4118- 00 03 10 OA AD 11 03 49 
4120- FF 8D 11 03 DO E7 A9 04 
4128- 18 65 19 85 19 DO DE AO 
4130- 07 A2 08 5E 01 03 2A CA 
4138- DO F9 8D 54 CO 2C 01 03 
4140- 10 02 49 FF 20 ED FD 2C 
4148- 00 03 10 03 20 ED FD 88 
4150- DO DF A9 27 CD OB 03 FO 
4158- 03 4C DI 40 A9 00 CD OC 
4160- 03 FO 03 4C DI 40 EE OA 
4168- 03 AS 03 85 FF A9 30 85 
4170- FE AS 00 20 ED FD C6 FE 
4178- DO F7 C6 FF DO F3 A9 18 
4180- CD OA 03 FO 03 4C 82 40 
4188- 8D 54 CO 8D 51 CO 8D 00 
4190- CO A9 8D 20 ED FD AS 03 
4198- 20 95 FE AS 8D 20 ED FD 
41A0- 60 
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Un jeu de réjle?(ion : 



Souris-Laser 


‘Benoît SvCesnit 


Souris-Laser vous est pré- 
senté ici en deux versions : 
Basic Applesoft et 
assembleur. Une occasion de 
comparer la conception et 
d'apprécier la vitesse de 
réaction... peut-être aussi 
d'adopter définitivement 
l'assembleur. 

Souris Laser 

Version 

Basic 

La souris livrée avec les //c et 
adaptable aux //e est un accessoire 
fort agréable pour l'utilisation de 
nombreux logiciels. La 
documentation de base ne permet 
pas d'en maîtriser la program- 
mation de haut niveau mais 
indique un moyen simple de la 
contrôler sous BASIC. La routine 
correspondante est ici mise en 
œuvre pour la manipulation d'un 
jeu de réflexion généralement 
connu sous le nom de “boîte 
noire”. 

Les règles 

Aux intersections d'une grille 8 x 
8, trois atomes se placent au 
hasard. En émettant, 
horizontalement ou verticalement, 
des rayons ‘laser’ à partir des 
canons disposés à la périphérie de 
la grille, et en observant les points 
de sortie de ces rayons, il faut 
trouver l'emplacement des atomes 
sachant que : 


• un rayon frappant directement 
un atome est absorbé ; 

• tout rayon détectant un atome 
en avant sur sa droite 
(respectivement gauche) est 
dévié sur la gauche 
(respectivement droite) ; 

• un rayon dont la trajectoire 
passe entre deux atomes 
situés immédiatement de part et 
d'autre est réfléchi ; 

• si un atome est situé contre un 
bord, tout rayon émis d'un 
canon disposé de part et 
d'autre de l'atome est 
immédiatement réfléchi ; 

• les canons ont le double rôle 
d'émetteur et de détecteur ; 

• le tir est déclenché en cliquant 
la souris dans l'un ou l'autre 
des canons (zones jaunes 
extérieures à la grille) ; trois 
tirs sont possibles sur chacun. 


Au lancement du programme ( run 
s ouri s . laser), un menu 
d'options constitué de grosses 
lettres en basse résolution 
s'affiche. Cliquer dans la case 
correspondante pour choisir : 


Jeu normal : le premier curseur 
est rose ; on dispose de 6 coups. 

Jeu facile : le premier curseur 
est vert ; on dispose de 12 coups 
et les trajectoires des rayons sont 
visuaüsées. 

Démonstration : les atomes 
sont visibles et les trajectoires 
visualisées ; on peut vérifier les 
règles du jeu. 


Une fois l'option principale 
sélectionnée, le jeu peut 
commencer. Un second menu 
d'options est affiché, les deux 
premières dans la couleur du 
niveau choisi (vert ou rose) : 

• commencer une nouvelle partie 
au même niveau de difficulté ; 

• continuer la partie en cours, du 
moins s'il reste des couleurs ; 

• donner les solutions en 
affichant les atomes. 

Stop : fin du jeu. 

La signification des initiales est 
rappelée dans un message en bas 
de l'écran. 


Pour effectuer le tir, on amène le 
curseur sur un canon et on 
‘clique’ ; un pavé de la couleur 
du curseur s'inscrit dans le canon 
d'origine puis, sauf absorption, 
dans le détecteur de sortie. 

On peut à tout moment tester la 
présence d'un atome : amener le 
curseur dans la grille et cliquer à 
l'emplacement supposé. Si un 
atome s'y trouve effectivement, 
un pavé vert pâle s'inscrit et un 
signal retentit. Pour reprendre le 
jeu, ramener le curseur hors de la 
grille ou dans la case de l'option 
C et cliquer. Le pointeur reprend 
la couleur du tir suivant ou reste 
noir s'il n'y a plus de couleur 
disponible. Il n’y a pas de pénalité 
en cas de test infructueux d'une 
solution : ceci peut être envisagé à 
condition d'éliminer les cas 
d'échec dus à un positionnement 
imprécis du pointeur. 

On pourrait augmenter à quatre le 
nombre d'atomes ; paradoxale- 


Stop : fin du jeu. 
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ment, cela semble rendre le jeu 
plus facile. 

Le programme 

Voici quelques indications sur la 
programmation du jeu. 

Lignes 30-36 : la souris est mise 
en service. 

40-85 : la grille et le premier menu 
sont affichés. 

100-130 : lecture de la souris: 
position et déclic. 

135-138 : temporisation du 
curseur piloté par la souris. 
140-180 : la souris a été ‘cliquée’, 
aiguille vers le traitement 
approprié. 

200 : souris cliquée dans la zone 
des menus. 

205-248 : si le premier menu 
affiché, enregistre l'option et 
appelle le second menu. 

250-280 : traite l'option du 
deuxième menu. 

400-520 : le rayon a été émis ou 
se propage horizontalement: 
460-465 : en ligne supérieure de 
la grille. 

470-475 : en ligne inférieure de la 
grille. 

480-488 : jeu facile, affiche un 
traceur. 

494-498 : le rayon ressort à droite 
ou à gauche. 

500-520 : il tourne ou ressort en 
haut ou en bas. 

600-705 : le rayon a été émis ou 
se propage verticalement. On 
retrouve, au chiffre des centaines 
près, les groupes de ligne 
effectuant les traitements 
équivalents à ceux des sections 
listées ci-dessus. 

720-726 : fin de tir. 

900-910 : fin du jeu, déconnecte 
la souris. 

Sous-programmes 

750-790 : place les atomes. 
800-845 : donne les solutions. 
850-890 : la souris a été cliquée 
dans la grille : teste les solutions. 

Ayant été un de mes tout premiers 
programmes sur Apple, celui-ci 
n'est pas optimisé et est de ce fait 
assez lent ; les indications 
ci-dessus permettront de mener à 
bien les améliorations nécessaires. 


Laser. Mouse 
version 'Asm' 

Le jeu obéit aux mêmes règles que 
la version Basic et se présente de 
façon tout-à-fait similaire : les 
options sont choisies en cliquant 
dans des cases de menu dessinées 
en basse-résolution : 

Menu 1 

J Jeu normal, 6 essais, pas de 
visualisation des trajectoires ; 

F Jeu facile, 12 essais, 
visualisation des trajectoires. 

D Démonstration, comme F, 
avec visualisation des cibles. 

Menu 2 

J Rejouer ; réinitialisation et 
retour au Menu 1. 

C Continuer ; il n'est toutefois 
plus nécessaire d'y cliquer pour 
reprendre le jeu après avoir 
recherché une cible dans la grille. 

D Donne les solutions. 

Dans les deux cas, S termine le 
jeu. 

La principale différence vient 
évidemment de la rapidité 
d'exécution qui ne laisse aucune 
chance de situer les obstacles par 
la durée de l'essai. 

Malgré les temporisations, il est 
même recommandé de ne pas 
s'endormir sur le bouton de la 
souris... 

Un problème demeure qui, 
apparemment, n'est pas d'origine 
logicielle : il faut veiller à ne pas 
déplacer la souris au moment où 
l'on clique, en particulier dans la 
case J du Menu 1. 

Le jeu se compose de deux 
éléments principaux : 

• Le fichier laser . mouse, 
chargé en $6000 : programme de 
jeu proprement dit. 

• Le fichier laser . sbr, chargé 
en $7000 : sous-routines et 
utilitaires. Il convient de les 
charger (B LO AD) dans cet ordre 
avant de démarrer par un CALL 
24576. Le programme Basic 
laser, s T art se charge de ces 
opérations. 


Descriptif 

Comme pour la version Basic, 
voici quelques informations sur la 
conception du programme. 

Mémoires Page Zéro 

$6-7 : adresse de base des 
firmwares souris ($C400 pour 
slot 4): on a en effet utilisé le 
mode standard d'appel des 
sous -programmes souris via les 
vecteurs de la table fournie par le 
constructeur. 

$8-9 : adresse des tables de 
messages. 

$19-1 A : adresse ($7600 
actuellement) de la grille réduite 8 
x 8 dans laquelle s'exécute le jeu. 
$1B-1C : coordonnées x et y des 
particules en mouvement dans 
cette grille. 

$1 : drapeau initialisé à 0 ; vaut 1 
pour jeu normal, 3 pour jeu facile 
et 5 pour le mode démonstration. 
Bit 7 à 0 pour déplacement vers la 
droite ou vers le bas, à 1 pour 
déplacement vers la gauche ou 
vers le haut. 

$1E : couleur du curseur en 
cours. 

$1 F : sauvegarde de la couleur du 
fond sous le curseur. 

$4E-4F : RNDL et RNDH utüisés 
pour positionnement ‘au hasard’ 
des cibles. 

$FE-FF : coordonnées x et y du 
curseur à l'écran. 

Routines système 

Le programmes utilise les routines 
souris via les vecteurs de la table 
en page $C4. 

Il utilise également les routines 
suivantes : 


PLOT 

$F800 

HLINE 

$F819 

VLINE 

$F828 

CLEARTOP 

$F836 

SETCOL 

$F864 

SCRN 

$F871 

SETTEXT 

$FB39 

SETGR 

$FB40 

HOME 

$FC58 

BELL 

$FBDD 

WATT 

$FCA8 

COUT 

$FDED 

Programme 

LASER. MOUSE 


$6000-600E : Initialisation 
d'adresses 

$6010-6017 : INITMOUSE 
(appelé via CallMouse en $7000) 


V, 


30 
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$6018-6030 : CLAMP X (id.) 
$6031-6036 : CLAMP Y (id.) 
$6037-6040 : SETMOUSE (id.). 
Mode transparent adopté par 
facilité. 

$6041-6048 : CLEARMOUSE 
(id.) 

$6049 : Appel de Menul en 
$700B 

$604 C : Mise à zéro de la grille de 
jeu et tirage des cibles par les 
sous- routines en $700B et $7138 
$6050-607F : READMOUSE: 
lecture de la souris et affichage/ 
déplacement du curseur ; boucle 
tant que la souris n'est pas 
cliquée. 

Au-delà de $6080, traitement 
selon les choix obtenus par 
“clics”: 

$6089-6094 et au-delà de $60EB: 
on a cliqué dans la zone de jeu. 
$6096-60CA : stop ou options 
premier menu. 

$60CB-60EA : options deuxième 
menu. 

$60EB-6104 : élimination des 
coups illégaux. 

$6105-612D : dispatche vers tir 
en ligne ($615A) ou en colonne 
($6220). 

$612E-6157 : on a cliqué dans la 
grille ; recherche de solution. 

Tir en ligne 

$615A-6183 : début de tir ; tests 


sur les bords de la grille. 

$61 84-61 F9 : la particule se 
déplace horizontalement. 
$61FB-6205 : la particule a été 
réfléchie. 

$6206-6215 : la particule sort 
horizontalement. 

Tir en colonne 

$6220-625F : début de tir. 
$6260-62E3 : déplacement 
vertical de la particule. 
$62E4-62EE : la particule a été 
réfléchie. 

$62EF -62FB : la particule sort 
verticalement. 

$6300-6323 : fin de tir ; test sur la 
couleur ; temporisation ($63 1C- 
$6320) et retour à READMOUSE 
en $6050. 

$6330-6340 : fin du jeu ; 

déconnexion de la souris. 

Sous-programmes 
LASER. SBR 

$7000 -700 A : dispatche vers les 
routines firmware souris. 

$7 00B -7 1 37 : affichage du 
premier menu : traçage des cases 
($701 1-704F), des lettres 
($7050-70DB), de la grille 
($70DC-7119) ; affichage des 
premiers messages ($71 1A- 
7137); la routine d'affichage en 
7126-7137 est également utilisée 
pour les autres messages. 


$71 38-717E : Mise à zéro de la 
grille de jeu ($7138-7142) et 
tirage des positions de cibles par 
transformations de RNDH et 
RNDL. 

$7180-7185 : transforme les 
coordonnées écran en coor- 
données dans la grille de jeu. 

$71 88-71 8C : transformation 
inverse. 

$71 90-71 9 A : positionnement 
dans la grille de jeu en fonction du 
rang de la colonne. 
$71A0-71DC : affichage du 
deuxième menu et des messages 
correspondants. 

$7 1E0-7 1E9 : affichage du 
message d'erreur. 

$71F0-7224 : visualisation des 
cibles (options D des cases 
menus). 

$7228-725E : début et fin de tir en 
ligne ; la section $7246-725E est 
aussi utilisée en cas de réflexion. 
$7260-7290 : début et fin de tir en 
colonne ; point d'entrée réflexion 
en $7278. 

$7292-72BC : affichage de la 
trajectoire des particules (options 
F et D du menu 1). 

$72C0-72C6 : changement de 
signe du drapeau $1D lors des 
inversions de sens de 
déplacement. 

a 


Programme 
SOURIS. LASER 

5 REM ** LA SOURIS LASER ** 

6 REM 

15 D$ = CHR$ (4): SC = 25.575 
20 DIM PT (7, 7) 

30 REM * ALLUME LA SOURIS * 

32 PRINT D$;"PR # 4": PRINT CHR$ (1) 

34 PRINT D$; "PR# 0" 

36 PRINT D$; "IN# 4" 

40 GR : HOME : COLOR= 13 
42 VLIN 2,33 AT 2: VLIN 2,33 AT 8 

44 HLIN 2,8 AT 2: HLIN 3, 7 AT 10: HLIN 3, 7 

AT 18 

45 HLIN 3, 7 AT 26: HLIN 2,8 AT 34 

48 COL OR- 11: VLIN 4,8 AT 6: HLIN 4,5 AT 8: 
PLOT 4, 7 

50 COLOR= 15: FOR X = 28 TO 32 STEP 2: HLIN 

4, 6 AT X: NEXT X 

51 PLOT 4,29: PLOT 6,31 

53 COLOR= 1: HLIN 3,6 AT 20: VLIN 21,23 AT 
4: HLIN 3,6 AT 24: VLIN 21,23 AT 6 


70 REM * TRACE LA GRILLE * 

72 CS = 0:CG = 13:CJ - 12:FAC = 0:DEM = 0:PC 
= 2 :TD = 15 
74 COLOR— CG : ECR = 1 

76 FOR X = 14 TO 28 STEP 2 

77 VLIN 10,12 AT X: VLIN 14,28 AT X: VLIN 3 

0,32 AT X 

78 HLIN 10,12 AT X: HLIN 14,28 AT X: HLIN 3 

0,32 AT X 
80 NEXT X 

82 COLOR = 0: FOR X = 4 TO 6: VLIN 12,16 AT 
X: NEXT X 

85 COLOR= 12: VLIN 12,16 AT 4: HLIN 5,6 AT 
12: PLOT 5,14 
90 S = FRE (0) 

94 T3$ = " J -> JEU NORMAL F -> FACILE" 

96 T4$ = " D -> DEMONSTRATION S -> STOP" 

100 REM * Lit la souris * 

1 02 HOME 

105 COLOR— CS: PLOT X, Y 

110 VTAB 21: PRINT T3$: VTAB 22: PRINT T4$ 

120 INPUT "";X, Y, S 

125 X = INT (X / SC) :Y = INT (Y / SC) : CS = 
SCRN( X,Y) 

130 IF S - 1 THEN 150 
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135 COLOR= CJ: FOR A = 0 TO 20 : PLOT X,Y: N 
EXT A 

138 GOTO 105 

140 REM ** SOURIS CLIQUEE _ CHOIX OU TIR * 
* 

150 IF X < 8 THEN 200 

155 IF X = >14 AND X < =28 AND Y = > 1 

4 AND Y < =28 AND ECR = 2 THEN 850 

160 IF X < 10 OR X > 32 OR Y < 10 OR Y > 32 
OR CS = 0 THEN 105 
1 65 COLOR= CJ 

170 IF X < 14 OR X > 28 THEN 400: REM LI 
GNE 

175 IF Y < 14 OR Y > 28 THEN 600: REM CO 
LONNE 

180 GOTO 105 
200 IF Y > 26 THEN 900 
202 IF ECR = 2 THEN 250 
205 IF Y < 10 THEN CJ = 11: GOTO 220 
210 IF Y > 10 AND Y < 18 THEN FAC = 1:PC = 
1: GOTO 220 

215 IF Y > 18 AND Y < 26 THEN FAC = 1 : DEM = 
1:PC = 1 : TD = 30 
220 GOSUB 750 

225 IF DEM = 2 THEN GOSUB 800 

235 T3$ = "C -> CONTINUER , J -> REJOUER" 

238 T4$ = "D -> DONNE LES SOLUTIONS" 

240 COLOR= 0: FOR X = 4 TO 6: VLIN 12,16 AT 
X: NEXT X 

242 COLOR= CJ: VLIN 12,16 AT 4: HLIN 5,6 AT 
12: HLIN 5,6 AT 16 
248 HOME :ECR = 2: GOTO 105 
250 IF Y < 10 THEN 70 
255 IF Y > 10 AND Y < 18 THEN 270 
260 IF Y > 18 THEN GOSUB 800 
265 GOTO 105 
270 IF CJ > 0 THEN 105 
275 T 3$ = "IL N'Y A PLUS DE COULEUR" 

280 GOTO 105 

400 ST = 1 :XX = 12 :C = 0:1 = 0:J = 0 

405 IF X > 28 THEN ST = - 1:XX = 30:C = 7 

410 L = INT ((Y - 14) / 2) : YY = 14 + 2 * L 

412 A = S CRN ( XX, YY) : IF A < > CG AND A > 

0 THEN XX = XX - ST: GOTO 412 
415 PLOT XX, YY: PRINT CHR$ (7) 

420 I = I + 1:J = J + 1- 
425 IF PT (C, L) = 1 THEN 725 

430 IF (C = 0 AND ST < 0) OR (C = 7 AND ST 
> 0) THEN 490 

431 IF PT (C + ST, L) = 1 THEN 725 

432 IF L = 0 T.HEN 460 
434 IF L = 7 THEN 470 

440 IF I = 1 AND (PT (C, L + 1) = 1 OR PT(C,L 

- 1) = 1) THEN C = C - ST :ST = - ST: 

GOTO 494 

445 IF PT (C + ST, L + 1) = 1 AND PT (C + ST, L 

- 1) = 1 THEN ST = - ST: GOTO 480 

450 IF PT (C + ST, L + 1) = 1 THEN 1 = 1 + 1: 

ST = - 1: GOTO 620 

452 IF PT (C + ST, L - 1) = 1 THEN 1 = 1 + 1: 

ST = 1: GOTO 620 
455 GOTO 480 

460 REM Ligne 0 

461 IF I - 1 AND PT (C, L + 1) = 1 THEN C = C 

- ST: ST = - ST: GOTO 494 


464 

IF PT (C + ST, L + 1) =2 
= - 2: GOTO 500 

THEN 

Y = 12: ST 

465 

GOTO 480 



470 

REM Ligne 7 



471 

IF I = 1 AND PT (C, L - 1) 

= 1 

THEN C = C 


- ST : ST = - ST: GOTO 494 


475 

IF PT (C + ST, L - 1) = 1 
= 2: GOTO 500 

THEN 

Y = 30: ST 

480 

IF FAC = 0 THEN 490 




482 XX = 14 + 2 * C: YY = 14 + 2 * L:CO = SC 
RN ( XX, YY) 

485 FOR A = 1 TO TD: PLOT XX, YY: NEXT A 
488 COLOR= CO: PLOT XX, YY: COLOR= CJ 
490 C = C + ST: IF C > = 0 AND C < =7 THE 

N 420 

494 X = 14 + 2 * C: Y = 14 + 2 * L 

496 A = S CRN ( X, Y) : IF A < > CG AND A > 0 

THEN X = X + ST: GOTO 496 
498 GOTO 720 
500 X = 14 + 2 * C 

505 A = SCRN ( X, Y) : IF A < > CG AND A > 0 

THEN Y = Y + ST: GOTO 505 
520 GOTO 720 

600 ST = 1 : YY = 12 : L = 0:J = 0:1 = 0: REM C 
OLONNES 

605 IF Y > 28 THEN ST = - 1 : YY = 30 :L = 7 

610 C = INT ( (X - 14) / 2) :XX = 14 + 2 * C 

612 A = SCRN ( XX, YY) : IF A < > CG AND A > 

0 THEN YY = YY - ST: GOTO 612 
615 PLOT XX, YY: PRINT CHR$ (7) 

620 J = J + 1:1 = I + 1 
625 IF PT (C, L) = 1 THEN 725 

630 IF (L = 0 AND ST < 0) OR (L = 7 AND ST 
> 0) THEN 690 

631 IF PT (C, L + ST) = 1 THEN 725 

632 IF C = 0 THEN 660 
634 IF C = 7 THEN 670 

640 IF J = 1 AND (PT (C + 1,L) = 1 OR PT (C - 
1, L) = 1) THEN L = L - ST: ST = - ST: 

GOTO 694 

645 IF PT (C + 1, L + ST) = 1 AND PT (C - 1,L 
+ ST) = 1 THEN ST = - ST: GOTO 680 


650 

IF 

PT (C 

+ 1,L + ST) = 1 

THEN 

J = J + 

1 


ST 

= - 

1: GOTO 420 




652 

IF 

PT (C 

- 1,L + ST) =2 

THEN 

J = J + 

1 


ST 

= 1: 

GOTO 420 





655 GOTO 680 

660 REM Colonne 0 

661 IF J = 1 AND PT (C + 1,L) = 1 THEN L = L 

- ST: ST = - ST: GOTO 694 

664 IF PT (C + 1,L + ST) = 1 THEN X = 12 : ST 

= - 2; GOTO 7 00 

665 GOTO 680 

670 REM Colonne 7 

671 IF J = 1 AND PT (C - 1,L) =2 THEN L = L 

- ST: ST = - ST: GOTO 694 

674 IF PT (C - 1, L + ST) = 2 THEN X = 30: ST 
= 1: GOTO 700 
680 IF FAC = 0 THEN 690 

682 XX = 14 + 2 * C: YY = 14 + 2 * L:CO = SC 
RN ( XX, YY) 

685 FOR A = 1 TO TD: PLOT XX, YY: NEXT A 
688 COLOR= CO: PLOT XX, YY: COLOR= CJ 
690 L = L + ST: IF L > = 0 AND L < =7 THE 

N 620 


K 
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694 X = 14 +2 * C: Y = 14 +2 * L 
696 A = SCRN ( X, Y) : IF A < > CG AND A > 0 
THEN Y = Y + ST: GOTO 696 
698 GOTO 120 
700 Y - 14 + 2 * L 

705 A = SCRN ( X, Y) : IF A < > CG AND A > 0 

THEN X = X + ST: GOTO 705 
720 PLOT X,Y: PRINT CHR$ (7): REM Fin de 
Tir 

725 CJ = CJ - PC: IF CJ < = 0 THEN CJ = 0:T 

3$ = "IL N'Y A PLUS DE COULEUR" 

726 GOTO 110 

7 50 REM * PLACE LES ATOMES * 

755 FOR I = 0 TO 7: FOR J = 0 TO 7 
760 PT (I, J) = 0: NEXT J, I 
770 FOR 1=1 TO 3 

775 C = INT (8 * RND (1)):L = INT (8 * R 
ND (1)) 

778 IF PT (C, L) = 1 THEN 775 
780 PT (C, L) = 1: NEXT I 
790 RETURN 

800 REM * Ss-Pr REPONSE * 

805 COLOR= 1 

810 FOR I = 0 TO 7: FOR J = 0 TO 7 

812 IF PT(I,J) = 0 THEN 840 

820 Z = 14 + 2 * I:ZZ = 14 + 2 * J 

830 PLOT Z,ZZ 

840 NEXT J, I 

845 RETURN 

850 REM Test des solutions 
852 HOME :CS = SCRN ( X, Y) 

860 COLOR= CS: PLOT X, Y 

864 VTAB 22: PRINT "CLIQUER HORS CADRE POUR 
REJOUER" 

866 INPUT " ” ;X, Y, S 

870 X = INT (X / SC) :Y = INT (Y / SC) : CS = 
SCRN < X, Y) 

872 COLOR= 14: FOR A = 0 TO 20: PLOT X, Y: 
EXT A 

874 IF S < > 1 THEN 860 

876 IF X < 8 AND Y > 26 THEN 900 
878 IF X < 14 OR X > 28 OR Y 

HOME : 


880 I = INT ( (X - 14) / 2): J = INT ( (Y - 1 
4) / 2) 

884 IF PT (I, J) < > 1 THEN 860 

886 COLOR= 14: PLOT X, Y 

888 FOR A = 1 TO 3: PRINT CHR$ (7) : NEXT A 
890 GOTO 866 

900 TEXT : HOME : HTAB 8: PRINT "FIN DU JEU 

rr 

902 PRINT D$; "PR# 4": PRINT CHR$ (0) 

904 PRINT D$; "PR# 0" 

905 PRINT D$; "IN# 0" 

910 END 


Programme LASER. BAS 


N 


5 

10 

15 

20 

30 

40 

45 

50 

52 

55 

60 

70 

80 

82 

85 

90 


REM 

REM LANCEMENT DU JEU LASER. MOUSE 
REM 

TEXT : HOME :D$ = CHR$ (4) 

VTAB 6: HTAB 15: INVERSE : PRINT "LASER. 

MOUSE": NORMAL : PRINT : PRINT 
PRINT "Pour pouvoir jouer, vous devez av- 
oir; 

PRINT ” 

ir 

PRINT " 

(//&) 

PRINT " 

PRINT : 


PRINT 

- Un Apple //c ou //e avec 65C02 

- Une souris connectée en Slot 4 


- Un moniteur ou TV couleur" 
PRINT "Si vous ne remplissez pas 
ces conditions" 

PRINT "frappez ESCape ou CTL-C, si OK RE 
TURN": PRINT : HTAB 15: PRINT "==> 

GET A$ 

IF A$ = CHR$ (27) OR A$ = CHR$ (3) THE 
N 100 

PRINT : VTAB 8: CALL - 958: PRINT "Char 
ge LASER. SBR" 

PRINT D$ "BLOAD LASER . SBR, A$7 000" 

PRINT "Charge et lance LASER. MOUSE" 

PRINT D$ "BRUN LASER. MOUSE, A$ 6000" 


OR CS = 0 THEN 


< 14 OR 

OTO 105 

Y > 

28 

95 

100 

CALL 24576 

HOME 






6012: B1 

06 


LDA 

(06), Y 

6045: AA 



TAX 


6014: AA 



TAX 


6046: 20 

00 

70 

JSR 

7000 

6015: 20 

00 

70 

JSR 

7000 

6049: 20 

0B 

70 

JSR 

700B 

6018: A9 

24 


LDA 

#24 

604C : 20 

38 

71 

JSR 

7138 

6 01A : 8D 

F8 

04 

STA 

04F 8 

604F: EA 



NOP 


601D : 9C 

F8 

05 

ST Z 

05F 8 

6050: AO 

14 


LDY 

#14 

6020: 9C 

78 

04 

ST Z 

04 78 

6052: B1 

06 


LDA 

(06), Y 

6023: 9C 

78 

05 

ST Z 

0578 

6054: AA 



TAX 


6026: AO 

17 


LDY 

#17 

6055: 20 

00 

70 

JSR 

7000 

6028: B1 

06 


LDA 

(06), Y 

6058: E6 

4E 


INC 

4E 

602A: AA 



TAX 


605A: AC 

7 C 

04 

LDY 

04 7C 

6 02B : DA 



PHX 


605D: AD 

FC 

04 

LDA 

04 FC 

602C: A 9 

00 


LDA 

#00 

6060: AA 



TAX 


602E: 20 

00 

70 

JSR 

7000 

6061: 20 

71 

F8 

JSR 

F 871 

6031: FA 



PLX 


6064: 85 

1F 


STA 

1F 

6032: A9 

01 


LDA 

#01 

6066: A5 

1E 


LDA 

1E 

6034: 20 

00 

70 

JSR 

7000 

6068: 20 

64 

F8 

JSR 

F 8 64 

603 7: AO 

12 


LDY 

#12 

606B: 8A 



TXA 


6039: B1 

06 


LDA 

(06), Y 

606C: 20 

00 

F8 

JSR 

F800 

603B: AA 



TAX 


606F: 20 

A8 

FC 

JSR 

F CA 8 

603C: A9 

01 


LDA 

#01 

6072: A5 

1F 


LDA 

1F 

603E: 20 

00 

70 

JSR 

7000 

6074: 20 

64 

F8 

JSR 

F 8 64 

6041: AO 

15 


LDY 

#15 

6077: 8A 



TXA 


6043: B1 

06 


LDA 

(06), Y 

6078: 20 

00 

F8 

JSR 

F800 


Désassemblage 

Récapitulation 

LASER.MOUSE 

Après avoir saisi ces trois colonnes de 
codes sous moniteur, vous les sauvegarderez 
par: 

BSAVE LASER.MOUSE, A$6000,L$34 3 

i i i 


6000: 

A9 

76 

LDA 

#76 

6002: 

85 

IA 

STA 

IA 

6004: 

64 

19 

STZ 

19 

6006: 

EA 


NOP 


6007: 

EA 


NOP 


6008: 

EA 


NOP 


6009: 

EA 


NOP 


60 OA : 

A9 

C4 

LDA 

#C4 

600C: 

85 

07 

STA 

07 

600E: 

64 

06 

STZ 

06 

601 0 : 

AO 

19 

LDY 

#19 
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60 7B: 

2C 

7 C 

07 

BIT 

077C 


611F: 

CO 

OE 


CPY 

#0E 


61B3: 

C8 



INY 



607E: 

10 

DO 


BPL 

6050 

{-30} 

6121 : 

30 

06 


BMI 

6129 

( + 06) 

61B4 : 

CO 

07 


CPY 

#07 


6080: 

E6 

4F 


INC 

4F 


6123: 

CO 

1D 


CPY 

#1D 


61B6: 

FO 

14 


BEQ 

6 ICC 

( + 14) 

6082 : 

AE 

7 C 

04 

LDX 

04 7C 


6125: 

30 

07 


BMI 

612E 

( + 07) 

61B8: 

C8 



INY 



6085: 

EO 

09 


CPX 

#09 


6127: 

09 

80 


ORA 

#80 


61B9: 

B1 

19 


LDA 

(19), 

Y 

6087: 

30 

OD 


BMI 

6096 

{ + OD> 

6129: 

85 

1D 


STA 

1D 


61BB : 

FO 

0F 


BEQ 

6 ICC 

< + 0F} 

6089: 

A5 

1D 


LDA 

1D 


612B: 

4C 

20 

62 

JMP 

6220 


61 BD: 

28 



PLP 



608B: 

29 

07 


AND 

#07 


612E : 

98 



TYA 



61BE: 

90 

03 


BCC 

61C3 

( + 03) 

608D: 

DO 

5C 


BNE 

60EB 

{+50 

612F: 

20 

80 

71 

JSR 

7 180 


6 ICO: 

4C 

FB 

61 

JMP 

61FB 


608F: 

EA 



NOP 



6132: 

85 

IC 


STA 

IC 


61C3: 

A5 

1D 


LDA 

1D 


6090: 

20 

EO 

71 

JSR 

7 1E0 


6134: 

A8 



TAY 



61C5: 

09 

80 


ORA 

#80 


6093: 

80 

BB 


BRA 

6050 

{-45} 

6135: 

8A 



TXA 



61C7: 

85 

1D 


STA 

1D 


6095: 

EA 



NOP 



6136: 

20 

80 

71 

JSR 

7 180 


61C9 : 

4C 

60 

62 

JMP 

6260 


6096: 

AC 

FC 

04 

LDY 

04 FC 


6139: 

85 

IB 


STA 

IB 


6 ICC: 

28 



PLP 



6099: 

CO 

IA 


CP Y 

#1A 


613B : 

AA 



TAX 



61 CD: 

90 

09 


BCC 

61D8 

{ + 09} 

609B: 

30 

03 


BMI 

60A0 

{ + 03} 

613C: 

FO 

03 


BEQ 

6141 

( + 03} 

61CF: 

A5 

1D 


LDA 

1D 


609D: 

4C 

30 

63 

JMP 

6330 


613E: 

20 

90 

71 

JSR 

7190 


61 DI : 

29 

0F 


AND 

#0F 


6 0A0 : 

A5 

1D 


LDA 

1D 


6141: 

85 

19 


STA 

19 


61D3: 

85 

1D 


STA 

1D 


60A2 : 

DO 

27 


BNE 

6 OCB 

{+27} 

6143: 

B1 

19 


LDA 

(19) , 

Y 

61D5 : 

4C 

60 

62 

JMP 

6260 


60A4 : 

CO 

OA 


CPY 

# OA 


6145: 

FO 

OE 


BEQ 

6155 

{ + 0E} 

61D8 : 

E6 

4E 


INC 

4E 


6 OA 6: 

10 

OC 


BPL 

60B4 

< + 0C) 

614 7: 

A9 

OE 


LDA 

#OE 


6 IDA: 

A5 

1D 


LDA 

1D 


60A8 : 

A9 

OB 


LDA 

#OB 


6149: 

85 

30 


STA 

30 


6 IDC: 

29 

06 


AND 

#06 


60 AA: 

85 

1E 


STA 

1E 


614B: 

A4 

FE 


LDY 

FE 


61DE: 

FO 

03 


BEQ 

61E3 

( + 03} 

60AC: 

85 

30 


STA 

30 


61 4D: 

A5 

FF 


LDA 

FF 


61E0 : 

20 

92 

72 

JSR 

7292 


60AE : 

A9 

01 


LDA 

#01 


614F: 

20 

00 

F8 

JSR 

F800 


61E3 : 

24 

1D 


BIT 

1D 


60B0 : 

85 

1D 


STA 

1D 


6152: 

20 

DD 

FB 

JSR 

FBDD 


61E5 : 

10 

08 


BPL 

61EF 

( + 08) 

60B2 : 

80 

11 


BRA 

6 OC 5 

(+11) 

6155: 

4C 

50 

60 

JMP 

6050 


61E7 : 

AS 

IB 


LDA 

IB 


60B4 : 

CO 

13 


CPY 

#13 


6158: 

00 

00 


BRK 

00 


61E9 : 

FO 

IB 


BEQ 

6206 

( + 1B) 

60B6: 

30 

09 


BMI 

60C1 

{ + 09} 

615A: 

20 

28 

72 

JSR 

7228 


61EB : 

C6 

IB 


DEC 

IB 


60B8: 

A9 

05 


LDA 

#05 


615D: 

A5 

FF 


LDA 

FF 


61ED : 

80 

08 


BRA 

61F7 

( + 08) 

60BA: 

85 

1D 


STA 

1D 


615F: 

20 

80 

71 

JSR 

7180 


61EF: 

A5 

IB 


LDA 

IB 


60BC: 

20 

FO 

71 

JSR 

7 1F0 


61 62 : 

85 

IC 


STA 

IC 


61F1 : 

C9 

07 


CMP 

#07 


6 OBF : 

80 

04 


BRA 

6 OC 5 

{ + 04} 

61 64 : 

A8 



TAY 



61F 3: 

FO 

11 


BEQ 

6206 

{ + 11} 

60C1 : 

A9 

03 


LDA 

#03 


61 65 : 

B1 

19 


LDA 

(19), 

Y 

61F5 : 

E6 

IB 


INC 

IB 


60C3 : 

85 

1D 


STA 

1D 


6167: 

FO 

03 


BEQ 

616C 

( + 03) 

61F 7 : 

4C 

84 

61 

JMP 

6184 


6 OC 5 : 

20 

AO 

71 

JSR 

71A0 


61 69 : 

4C 

00 

63 

JMP 

6300 


61FA : 

EA 



NOP 



6 OC 8: 

4C 

50 

60 

JMP 

6050 


61 6C: 

98 



TYA 



61FB : 

20 

CO 

72 

JSR 

72C0 


6 OCB : 

CO 

OA 


CPY 

#0A 


61 6D : 

FO 

OD 


BEQ 

61 7 C 

( + 0D) 

61FE: 

A4 

FE 


LDY 

FE 


60CD : 

10 

03 


BPL 

60D2 

{ + 03} 

616F: 

88 



DEY 



6200: 

20 

46 

72 

JSR 

724 6 


6 OCF : 

4C 

41 

60 

JMP 

6041 


61 70 : 

B1 

19 


LDA 

(19), 

Y 

6203: 

4C 

00 

63 

JMP 

6300 


60D2 : 

CO 

13 


CPY 

#13 


61 72 : 

FO 

03 


BEQ 

61 77 

( + 03} 

6206: 

A5 

IC 


LDA 

IC 


60D4 : 

30 

06 


BMI 

60DC 

{ + 06} 

61 74 : 

4C 

FB 

61 

JMP 

61FB 


6208: 

20 

88 

71 

JSR 

7188 


60D6: 

20 

FO 

71 

JSR 

7 1F0 


61 77: 

C8 



INY 



620B : 

85 

FF 


STA 

FF 


60D9 : 

20 

D3 

71 

JSR 

7 1D3 


61 78 : 

CO 

07 


CPY 

#07 


620D : 

20 

CO 

72 

JSR 

7 2C0 


60DC: 

A5 

1E 


LDA 

1E 


61 7 A : 

FO 

08 


BEQ 

6184 

( + 08) 

621 0 : 

20 

28 

72 

JSR 

7228 


6 ODE: 

DO 

07 


BNE 

60E 7 

{ + 07} 

61 7 C: 

C8 



INY 



6213: 

4C 

00 

63 

JMP 

6300 


60E0: 

20 

EO 

71 

JSR 

7 1E0 


61 7D : 

B1 

19 


LDA 

(19), 

Y 

6216: 

EA 



NOP 



60E3: 

64 

1E 


STZ 

1E 


61 7F: 

FO 

03 


BEQ 

6184 

( + 03} 

6217: 

EA 



NOP 



60E5 : 

64 

1D 


STZ 

1D 


6181: 

4C 

FB 

61 

JMP 

61FB 


6218: 

EA 



NOP 



60E7: 

4C 

50 

60 

JMP 

6050 


61 84 : 

18 



CLC 



6219: 

EA 



NOP 



60EA : 

EA 



NOP 



6185: 

A6 

IB 


LDX 

IB 


62 IA : 

EA 



NOP 



60EB: 

85 

1D 


STA 

1D 


6187: 

A4 

IC 


LDY 

IC 


62 IB: 

EA 



NOP 



6 OED : 

A5 

1F 


LDA 

1F 


6189: 

24 

1D 


BIT 

1D 


621C: 

EA 



NOP 



60 EF: 

FO 

F6 


BEQ 

60E 7 

{-OA) 

61 8B : 

30 

08 


BMI 

6195 

( + 08) 

62 1D: 

EA 



NOP 



60F1 : 

EO 

OA 


CPX 

#0A 


618D: 

E8 



INX 



62 1E: 

EA 



NOP 



60F3 : 

30 

F2 


BMI 

60E7 

{-OE) 

618E: 

EO 

08 


CPX 

#08 


621F: 

EA 



NOP 



60F5 : 

EO 

21 


CPX 

#21 


6190: 

30 

06 


BMI 

6198 

( + 06) 

6220: 

20 

60 

72 

JSR 

7 260 


60F 7: 

10 

EE 


BPL 

60E7 

{-12} 

61 92 : 

4C 

06 

62 

JMP 

6206 


6223 : 

A5 

FE 


LDA 

FE 


60F 9: 

AC 

FC 

04 

LDY 

04 FC 


6195: 

CA 



DEX 



6225 : 

20 

80 

71 

JSR 

7180 


6 OFC : 

CO 

OA 


CPY 

#0A 


6196: 

30 

6E 


BMI 

6206 

( + 6E) 

6228: 

AA 



TAX 



6 OFE : 

30 

E 7 


BMI 

60E7 

(-19} 

61 98 : 

8A 



TXA 



6229: 

85 

IB 


STA 

IB 


6100: 

CO 

21 


CPY 

#21 


6199: 

FO 

03 


BEQ 

619E 

( + 03) 

62 2B : 

FO 

03 


BEQ 

6230 

( + 03) 

61 02 : 

10 

E3 


BPL 

60E7 

(-1D) 

61 9B : 

20 

90 

71 

JSR 

7 190 


622D : 

20 

90 

71 

JSR 

7 190 


61 04 : 

EA 



NOP 



61 9E: 

85 

19 


STA 

19 


6230: 

85 

19 


STA 

19 


61 05 : 

A5 

1E 


LDA 

1E 


61 AO: 

B1 

19 


LDA 

(19), 

Y 

6232 : 

A4 

IC 


LDY 

IC 


610 7: 

20 

64 

F8 

JSR 

F 864 


61A2 : 

FO 

03 


BEQ 

61A 7 

( + 03} 

6234 : 

B1 

19 


LDA 

(19), 

Y 

61 OA : 

86 

FE 


STX 

FE 


61 A4 : 

4C 

00 

63 

JMP 

6300 


623 6: 

FO 

03 


BEQ 

623B 

{ + 03) 

61 OC: 

84 

FF 


STY 

FF 


617 17: 

18 



. CLC 



6238: 

4C 

00 

63 

JMP 

6300 


610E: 

A5 

1D 


LDA 

1D 


61A8: 

08 



PHP 



623B: 

8A 



TXA 



6110: 

EO 

OE 


CPX 

#OE 


61A9 : 

98 



TYA 



623C : 

FO 

15 


BEQ 

6253 

( + 15} 

6112: 

30 

06 


BMI 

611A 

{+06} 

61AA: 

FO 

OC 


BEQ 

61B8 

{ + 0C) 

62 3E: 

CA 



DEX 



6114: 

EO 

1D 


CPX 

#1D 


61 AC: 

88 



DEY 



623F: 

8A 



TXA 



6116: 

30 

07 


BMI 

611F 

( + 07) 

61 AD : 

B1 

19 


LDA 

(19), 

Y 

6240: 

FO 

03 


BEQ 

6245 

( + 03) 

6118: 

09 

80 


ORA 

#80 


61 AF: 

FO 

02 


BEQ 

61B3 

( + 02) 

6242: 

20 

90 

71 

JSR 

7 190 


61 IA: 

85 

1D 


STA 

1D 


61B1 : 

38 



SEC 



6245: 

85 

19 


STA 

19 


611C: 

4C 

5A 

61 

JMP 

615A 


61B2 : 

08 



PHP 



6247: 

B1 

19 


LDA 

(19), 

Y 




34 
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6249 

FO 

03 


BEQ 

624E 

(+03) 

6298 

: EO 

07 


624B 

4C 

E4 

62 

JMP 

62E4 


62 9 A 

: FO 

19 


62 

E8 



INX 



629C: E8 



624F 

EO 

07 


CPX 

#07 


629D, 

20 

90 

71 

6251 

FO 

OD 


BEQ 

6260 

( +0D ) 

6 2 AO. 

85 

19 


6253 

E8 



INX 



62A2. 

B1 

19 


6254 

20 

90 

71 

JSR 

7190 


62A4. 

FO 

OF 


625 

85 

19 


STA 

19 


62A6: 28 



6259 

B1 

19 


LDA 

(19), 

, Y 

62A 

: 90 

03 


625B 

FO 

03 


BEQ 

6260 

( + 03) 

62A9 

■ 4C 

E4 

62 

625D 

4C 

E4 

62 

JMP 

62E4 


6 2 AC 

A5 

1D 


6260 

18 



CLC 



62AE 

■ 09 

80 


6261 

A4 

IC 


LDY 

IC 


62B0 

85 

1D 


6263 

A6 

IB 


LDX 

IB 


62B2 

4C 

84 

61 

6265 

8A 



TXA 



62B5 

28 



6266 

FO 

03 


BEQ 

626B 

( + 03) 

62B6 

90 

09 


6268 

20 

90 

71 

JSR 

7190 


62B8 

A5 

1D 


626B 

85 

19 


STA 

19 


62BA 

29 

OF 


62 6D 

24 

1D 


BIT 

1D 


62BC 

85 

1D 


626F 

30 

08 


BMI 

6279 

( + 08) 

62BE 

4C 

84 

61 

62 71 

C8 



INY 



62C1 

E6 

4F 


6272 

CO 

08 


CP Y 

#08 


62C3 

A5 

1D 


6274 

30 

06 


BMI 

627C 

( + 06) 

62C5 

29 

06 


6276 

4C 

EF 

62 

JMP 

62EF 


62C7 

FO 

03 


6279 

88 



DEY 



62C9 

20 

92 

72 

62 7 A 

30 

73 


BMI 

62EF 

(+73) 

62CC 

24 

1D 


627 C 

B1 

19 


LDA 

(19), 

Y 

62CE 

10 

08 


627E 

FO 

03 


BEQ 

6283 

( + 03) 

62D0 

A5 

IC 


6280 

4C 

00 

63 

JMP 

6300 


62D2 

FO 

18 


6283 

18 



CLC 



62D4 

C6 

IC 


6284 

08 



PHP 



62D6 

80 

08 


6285 

8A 



TXA 



62D8 

A5 

IC 


6286 

FO 

14 


BEQ 

629C 

( + 14) 

62DA 

C9 

07 


6288 

CA 



DEX 



62DC 

FO 

OE 


6289 

8A 



TXA 



62DE 

E6 

IC 


62 8 A 

FO 

03 


BEQ 

628F 

( + 03) 

62E0 

4C 

60 

62 

628C 

20 

90 

71 

JSR 

7 190 


62E3 

EA 



628F 

85 

19 


STA 

19 


62E4 

20 

CO 

72 

6291 

B1 

19 


LDA 

(19). 

Y 

62E7 

A6 . 

FF 


6293 

FO 

02 


BEQ 

6297 

( + 02) 

62E9 

20 

78 

72 

6295 

38 



SEC 



62EC 

4C 

00 

63 

6296 

08 



PHP 



62EF 

20 

CO 

72 

6297 

E8 



INX 



62F2 

A5 . 

IB 



Désassemblage 

Récapitulation 

LASER.SBR 


Après avoir saisi ces trois colonnes de 
codes sous moniteur, vous les sauvegarderez 
par: 

BSAVE LASER. SBR,A$7000, L$393 


702A: AO 02 
7 02C: 98 
702D: 20 19 F8 
7030: AO 02 
7032: A9 22 
7034: 20 19 F8 
7037: A9 07 
7039: 85 2C 
703B: AO 03 
703D: A9 OA 



1 

I 



703F 

20 

19 

F8 


i 

i 

i 


7042 

AO 

03 


7000 

8E 

08 

70 

STX 7008 

7044 

A9 

12 


7003 

A2 

C4 


LDX #C4 

7046 

20 

19 

F8 

7005 

AO 

40 


LDY #40 

7049 

AO 

03 


7007 

20 

3D 

C4 

JSR C43D 

7 04B 

A9 

IA 


700A 

60 



RTS 

704D 

20 

19 

F8 

700B 

20 

40 

FB 

JSR FB40 

7050 

A9 

OB 


7 00E 

20 

36 

F8 

JSR F836 

7052 

20 

64 

F8 

7011 

A9 

OD 


LDA #0D 

7055 

A9 

08 


7013 

20 

64 

F8 

JSR F 8 64 

7057 

85 

2D 


7016 

AO 

02 


LDY #02 

7 059 

A9 

04 


7018 

A9 

21 


LDA #21 

705B 

AO 

06 


701A 

85 

2D 


STA 2D 

7 05D 

20 

28 

F8 

7 01C 

A9 

03 


LDA #03 

7060 

A9 

05 


7 OIE 

20 

28 

F8 

JSR F828 

7 062 

85 

2C 


7021 

AO 

08 


LDY #08 

7 064 

AO 

04 


7 023 

84 

2C 


STY 2C 

7 066 

A9 

08 


7025 

A9 

03 


LDA #03 

7068 

20 

19 

F8 

7027 

20 

28 

F8 

JSR F828 

706B 

AO 

04 



CPX #07 


62F4 

: 20 

88 

71 

JSR 

7188 


BEQ 62B5 

(+19) 

62F7 

' 85 

FE 


STA 

FE 


INX 


62F9 

' 20 

60 

72 

JSR 

7 260 


JSR 7 190 


62FC 

EA 



NOP 



STA 19 


62FD 

EA 



NOP 



LDA (19), 

, Y 

62FE 

EA 



NOP 



BEQ 62B5 

( + 0F ) 

6 2 FF: EA 



NOP 



PLP 


6300 

A5 

1D 


LDA 

1D 


BCC 62AC 

( + 03) 

6302 

29 

OF 


AND 

#0F 


JMP 62E4 


6304 

85 

1D 


STA 

1D 


LDA 1D 


6306 

C6 

1E 


DEC 

1E 


ORA #80 


6308 

FO 

OA 


BEQ 

6314 

( + 0A) 

STA 1D 


63 OA 

A5 

1D 


LDA 

1D 


JMP 6184 


63 OC 

29 

06 


AND 

#06 


PLP 


63 OE 

DO 

07 


BNE 

6317 

( + 07) 

BCC 62C1 

( + 09) 

6310 

C6 

1E 


DEC 

1E 


LDA 1D 


6312 

80 

03 


BRA 

6317 

(+03) 

AND #0F i 


6314 

20 

EO 

71 

JSR 

7 1E0 


STA 1D 


6317 

A5 

1E 


LDA 

1E 


JMP 6184 


6319 

20 

64 

F8 

JSR 

F864 


INC 4F 


63 IC 

A9 

80 


LDA 

#80 


LDA 1D 


631E 

20 

A8 

FC 

JSR 

F CA 8 


AND #06 


6321 

4C 

50 

60 

JMP 

6050 


BEQ 62CC 

( + 03) 

6324 

EA 



NOP 



JSR 7292 


6325 

EA 



NOP 



BIT 1D 


6326 

EA 



NOP 



BPL 62D8 

( + 08) 

6327 

EA 



NOP 



LDA IC 


6328 

EA 



NOP 



BEQ 62EC 

(+18) 

6329 

EA 



NOP 



DEC IC 


632A 

EA 



NOP 



BRA 62E0 

( + 08) 

632B 

EA 



NOP 



LDA IC 


632C 

EA 



NOP 



CMP #07 


632D 

EA 



NOP 



BEQ 62EC 

( + OE) 

632E 

EA 



NOP 



INC IC 


632F 

EA 



NOP 



JMP 6260 


6330 

AO 

12 


LDY 

#12 


NOP 


6332 

B1 

06 


LDA 

(06), 

Y 

JSR 72C0 


6334 

AA 



TAX 



LDX FF 


6335 

A9 

00 


LDA 

#00 


JSR 7278 


6337 

20 

00 

70 

JSR 

7 000 


JMP 6300 


633A 

20 

39 

FB 

JSR 

FB39 


JSR 72C0 


633D 

20 

58 

FC 

JSR . 

FC58 


LDA IB 


6340 

4C 

DO 

03 

JMP 

03D0 



LDY 

#02 

706D : 

A9 

07 


LDA 

#07 

TYA 


706F: 

20 

00 

F8 

JSR 

F800 

JSR 

F 81 9 

7072: 

A9 

OC 


LDA 

#0C 

LDY 

#02 

7074: 

20 

64 

F8 

JSR 

F864 

LDA 

#22 

7077 : 

A9 

10 


LDA 

#10 

JSR 

F 819 

7079: 

85 

2D 


STA 

2D 

LDA 

#07 

707B: 

AO 

04 


LDY 

#04 

STA 

2C 

7070: 

A9 

OC 


LDA 

#0C 

LDY 

#03 

707F: 

20 

28 

F8 

JSR 

F 82 8 

LDA 

#0A 

7 082: 

A9 

06 


LDA 

#06 

JSR 

F 81 9 

7 084: 

85 

2C 


STA 

2C 

LDY 

#03 

7 086: 

AO 

05 


LDY 

#05 

LDA 

#12 

7088: 

A9 

OC 


LDA 

#oc 

JSR 

F 81 9 

708A : 

20 

19 

F8 

JSR 

F819 

LDY 

#03 

708D: 

AO 

05 


LDY 

#05 

LDA 

#1A 

7 08F: 

A9 

OE 


LDA 

#0E 

JSR 

F 81 9 

7 091 : 

20 

00 

F8 

JSR 

F800 

LDA 

#0B 

7 094 : 

A9 

01 


LDA 

#01 

JSR 

F864 

7 096: 

20 

64 

F8 

JSR 

F 864 

LDA 

#08 

7099: 

A9 

17 


LDA 

#17 

STA 

2D 

7 09B: 

85 

2D 


STA 

2D 

LDA 

#04 

709D: 

AO 

06 


LDY 

#06 

LDY 

#06 

7 09F: 

84 

2C 


STY 

2C 

JSR 

F 82 8 

70A1 : 

A9 

15 


LDA 

#15 

LDA 

#05 

70A3 : 

20 

28 

FB 

JSR 

F 82 8 

STA 

2C 

7 OA 6 : 

AO 

03 


LDY 

#03 

LDY 

#04 

70A8 : 

A9 

14 


LDA 

#14 

LDA 

#08 

70AA: 

20 

19 

F8 

JSR 

F 81 9 

JSR 

F 81 9 

7 OAD: 

AO 

03 


LDY 

#03 

LDY 

#04 

70AF: 

A9 

18 


LDA 

#18 


J 


Pom's n° 30 


35 



7 OBI : 

20 

19 

F8 

JSR 

F 81 9 


7147: 

48 


70B4 : 

AO 

04 


LDY 

#04 


7148: 

29 

07 

7 0B6: 

A9 

15 


LDA 

#15 


71 4 A : 

OA 


7 0B8: 

20 

28 

F8 

JSR 

F828 


714B: 

OA 


7 OBB: 

A9 

OF 


LDA 

#0F 


714C: 

OA 


7 OBD : 

20 

64 

F8 

JSR 

F 864 


7240: 

85 

19 

7 0C0 : 

A2 

IC 


LDX 

#1C 


714F: 

68 


70C2: 

8A 



TXA 



7150: 

4A 


70C3 : 

AO 

04 


LDY 

#04 


7151: 

4A 


70C5 : 

20 

19 

F8 

JSR 

F819 


7152: 

4A 


7 OC 8: 

E8 



INX 



7153: 

29 

07 

7 OC 9: 

E8 



1NX 



7155: 

A8 


7 OCA: 

EO 

21 


CPX 

#21 


7156: 

A9 

01 

7 OCC : 

30 

F4 


BMI 

70C2 

(-0C) 

7158: 

91 

19 

7 OCE : 

A9 

1D 


LDA 

#1D 


715A: 

CA 


7000: 

AO 

04 


LDY 

#04 


715B: 

FO 

04 

7002: 

20 

00 

F8 

JSR 

F800 


7250: 

A5 

4F 

7005 : 

A9 

1F 


LDA 

#1F 


715F: 

80 

E6 

7007: 

AO 

06 


LDY 

#06 


71 61 : 

A5 

4E 

7005 : 

20 

00 

F8 

JSR 

F800 


7163: 

4A 


70DC: 

A9 

OD 


LDA 

#0D 


71 64 : 

4A 


7 ODE: 

20 

64 

F8 

JSR 

F 86 4 


71 65 : 

29 

38 

7 0E1 : 

38 



SEC 



7167: 

85 

19 

7 0E2 : 

A9 

OA 


LDA 

#0A 


71 69 : 

A5 

4F 

70E4 : 

85 

FF 


STA 

FF 


716B: 

4A 


70E6: 

69 

01 


ADC 

#01 


716C: 

4A 


7 0E8: 

85 

FC 


STA 

FC 


72 50: 

4A 


70EA: 

69 

02 


ADC 

#02 


716E: 

4A 


70EC: 

85 

FE 


STA 

FE 


72 6F: 

4A 


7 OEE: 

69 

OE 


ADC 

#0E 


7170: 

29 

07 

70F0 : 

85 

FB 


STA 

FB 


71 72: 

A8 


70F2 : 

69 

02 


ADC 

#02 


71 73 : 

B1 

19 

70F 4: 

85 

FD 


STA 

FD 


71 75 : 

FO 

03 

70F6: 

69 

02 


ADC 

#02 


7177: 

C8 


70F8: 

85 

FA 


STA 

FA 


71 78 : 

80 

F9 

70F A : 

A2 

03 


LDX 

#03 


71 7 A : 

A9 

01 

70FC: 

AO 

OE 


LDY 

#0E 


71 7 C: 

91 

19 

7 OFE : 

B5 

F9 


LDA 

F9,X 


717E: 

60 


7100: 

85 

2C 


STA 

2C 


71 7F: 

EA 


71 02 : 

85 

2D 


STA 

2D 


7180: 

38 


71 04 : 

B5 

FC 


LDA 

FC, X 


7181: 

E9 

OE 

7106: 

20 

28 

F8 

JSR 

F 82 8 


7183: 

4A 


7109: 

5A 



PHY 



7184: 

18 


71 OA : 

98 



TYA 



7185: 

60 


71 OB : 

B4 

FC 


LDY 

FC,X 


7186: 

EA 


71 OD : 

20 

19 

F8 

JSR 

F 81 9 


7187: 

EA 


7 110: 

7 A 



PLY 



7188: 

OA 


7111: 

C8 



INY 



7189: 

18 


7112: 

C8 



INY 



718A: 

69 

OE 

7113: 

CO 

1D 


CPY 

#1D 


72 SC: 

60 


7115: 

30 

ED 


BMI 

7104 

(-13) 

7 18D: 

00 

00 

7117: 

CA 



DEX 



718F: 

00 

DA 

7118: 

DO 

E2 


BNE 

70FC 

(-1E) 

71 91 : 

A9 

00 

7 11A: 

A9 

OC 


LDA 

#0C ' 


7193: 

18 


7 11C: 

85 

1E 


STA 

1E 


7194: 

69 

08 

7 11E: 

64 

1D 


STZ 

1D 


7 196: 

CA 


7 120: 

A9 

DO 


LDA 

#D0 


7197: 

DO 

FA 

7122: 

85 

08 


STA 

08 


7199: 

FA 


7 124 : 

A9 

72 


LDA 

#72 


72571: 

60 


7 126: 

85 

09 


STA 

09 


72 SB: 

00 

00 

7128: 

20 

58 

FC 

JSR 

FC58 


72 50: 

00 

00 

7 12B: 

AO 

00 


LDY 

#00 


719F: 

00 

AS 

72 20: 

B1 

08 


LDA 

(08), 

Y 

71A1 : 

00 

20 

712F: 

FO 

06 


BEQ 

7137 

( + 06) 

71A3 : 

64 

F8 

7131: 

20 

ED 

FD 

JSR 

FDED 


72215: 

A9 

10 

7 134: 

C8 



INY 



72217: 

85 

2D 

7 135: 

80 

F6 


BRA 

7220 

( — OA) 

72215: 

AO 

05 

7137: 

60 



RTS 



72 AB : 

A9 

OC 

7138: 

A9 

00 


LDA 

#00 


71 AD: 

20 

28 F8 

7 13A: 

85 

19 


STA 

25 


7 1B0: 

C8 


713C: 

AO 

41 


LDY 

#41 


71B1 : 

CO 

07 

713E: 

88 



DEY 



71B3 : 

30 

F6 

713F: 

91 

19 


STA 

(19), 

Y 

71B5 : 

A5 

1E 

7141: 

10 

FB 


BPL 

713E 

(-05) 

71B7: 

20 

64 F8 

7143: 

A2 

02 


LDX 

#02 


71BA : 

AO 

04 

7145: 

A5 

4E 


LDA 

4E 


71BC: 

A9 

OC 


PHA 


71BE: 20 

28 

F8 

JSR 

F 82 8 


AND 

#07 

71C1: A9 

06 


LDA 

#06 


ASL 


71C3: 85 

2C 


STA 

2C 


ASL 


71C5: A9 

OC 


LDA 

#oc 


ASL 


71C7 : AO 

05 


LDY 

#05 


STA 

19 

71C9: 20 

19 

F8 

JSR 

F 81 9 


PLA 


7 ICC: AO 

05 


LDY 

#05 


LSR 


7 ICE: A9 

10 


LDA 

#10 


LSR 


7200: 20 

19 

F8 

JSR 

F 81 9 


LSR 


7205: AS 

18 


LDA 

#18 


AND 

#07 

72 05 : 85 

08 


STA 

08 


TAY 


720 7: AS 

73 


LDA 

#73 


LDA 

#01 

71D9 : 20 

26 

71 

JSR 

7126 


STA 

(19), Y 

71DC: 60 



RTS 



DEX 


71 DD: EA 



NOP 



BEQ 

7161 (+04) 

7 IDE: EA 



NOP 



LDA 

4F 

72 DF: EA 



NOP 



BRA 

7147 (-1A) 

71E0 : A9 

60 


LDA 

#60 


LDA 

4E 

71E2 : 85 

08 


STA 

08 


LSR 


7 1E4: A9 

73 


LDA 

#73 


LSR 


71E6 : 20 

26 

71 

JSR 

7126 


AND 

#38 

71E9 : 60 



RTS 



STA 

19 

7 1EA: EA 



NOP 



LDA 

4F 

7 IEB: EA 



NOP 



LSR 


71EC: EA 



NOP 



LSR 


71ED : EA 



NOP 



LSR 


71EE: EA 



NOP 



LSR 


71EF: EA 



NOP 



LSR 


7 1F0: A9 

01 


LDA 

#01 


AND 

#07 

71F2 : 85 

30 


STA 

30 


TAY 


71F4: A 9 

38 


LDA 

#38 


LDA 

(19), Y 

71F 6: 85 

19 


STA 

19 


BEQ 

717A ( + 03) 

71F8: A9 

07 


LDA 

#07 


INY 


71FA : 85 



STA 

IB 


BRA 

7173 (-07) 

UFC: AO 

07; 


LDY 

#07 


LDA 

#01 

71FE: B1 

15 


LDA 

(19), 

Y 

STA 

(19), Y 

7200: FO 

22 


BEQ 

7214 

(+12) 

RTS 


7202: 84 

2C 1 


STY 

IC 


NOP 


7 204: A5 

2B 


LDA 

IB 


SEC 


7 206: 20 

88 

71 

JSR 

7188 


SBC 

#0E 

7 209: AS 



TAY 



LSR 


72 OA: A5 

IC 


LDA 

IC 


CLC 


7 2 OC: 20 

88 

71 

JSR 

7188 


RTS 


7 20F: 20 

00 

F8 

JSR 

F800 


NOP 


7212: A4 

lie 


LDY 

IC 


NOP 


7214: 88 



DEY 



ASL 


7215: 10 

E7 


BPL 

71FE 

(-19) 

CLC 


722 7: C6 

IB 


DEC 

IB 


ADC 

#0E 

7219: 30 

09 


BMI 

7224 

(+09) 

RTS 


721B: A5 

19 


LDA 

19 


BRK 

00 

7220: 38 



SEC 



BRK 

DA 

722F: ES 

08 


SBC 

#08 


LDA 

#00 

7220: 85 

19 


STA 

19 


CLC 


7222: 80 

D8 


BRA 

UFC 

(-28) 

ADC 

#08 

7224: 60 



RTS 



DEX 


7225: EA 



NOP 



BNE 

7193 (-06) 

7226: EA 



NOP 



PLX 


7227: EA 



NOP 



RTS 


7228: 64 

IB 


STZ 

IB 


BRK 

00 

722A : 64 

19 


STZ 

25 


BRK 

00 

722C: AO 

OA 


LDY 

#0A 


BRK 

A9 

7 22E: AS 

C8 


LDA 

#CS 


BRK 

20 

7230: 8D 

53 

72 

STA 

7 253 


STZ 

F8 

7233: 24 

20 


BIT 

20 


LDA 

#10 

7 235: 10 

OF 


BPL 

7 246 

( + 0F) 

STA 

2D 

7237: AO 

20 


LDY 

#20 


LDY 

#05 

7239: A9 

07 


LDA 

#07 


LDA 

#0C 

7 23B: 85 

IB 


STA 

IB 


JSR 

F 82 8 

723D: A 9 

38 


LDA 

#38 


INY 


7 23F: 85 

19 


STA 

19 


CPY 

#07 

7241: A9 

88 


LDA 

#88 


BMI 

71 AB (—OA) 

7243: 8D 

53 

72 

STA 

7 253 


LDA 

1E 

7246: 84 

FE 


STY 

FE 


JSR 

F 86 4 

7 248: A5 

FF 


LDA 

FF 


LDY 

#04 

724A: 20 

71 

F8 

JSR 

F 871 


LDA 

#0C 

7 240: FO 

07 


BEQ 

7 256 

( + 07) 


V — 
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7 24F 

C9 

OD 

CMP 

#0D 


7 2E8 

BE 

AO 

CA 

LDX 

CAAO, Y 

733D 

• BD 

BE 

AO 

7251 

FO 

03 

BEQ 

7256 

( + 03} 

72EB 

E5 

F5 


SBC 

F5 

7 340 

C4 

EF 


7253 

C8 


INY 



72ED 

AO 

C6 


LDY 

#C6 

7342 

EE 

EE 

E5 

7254 

80 

FO 

BRA 

724 6 

(-10) 

72EF 

Cl 

C3 


CMP 

(C3,X) 

7345 

AO 

D3 


7 256 

A5 

FF 

LDA 

FF 


72F1 

C9 

CC 


CMP 

#CC 

7 34 7 

CF 

CC 

D5 D4 

7 258 

20 

00 F8 

JSR 

F800 


7 2F3 

C5 

8D 


CMP 

8D 

734B 

C9 

CF 


725B 

20 

DD FB 

JSR 

FBDD 


7 2F5 

AO 

AO 


LDY 

#A0 

73 4 D 

CE 

AO 

AO 

7 25E 

60 


RTS 



7 2F 7 

04 

AO 


TSB 

AO 

7350 

AO 

13 


725F 

EA 


NOP 



72F9 

BD 

BE 

AO 

LDA 

A OBE, X 

7 352 

AO 

BD 


7 260 

64 

IC 

STZ 

IC 


7 2FC 

C4 

C5 


CPY 

C5 

7354 

BE 

AO 

D3 

7262 

A2 

OA 

LDX 

#0A 


7 2FE 

CD 

CF 

EE 

CMP 

EECF 

7357 

D4 

CF 


7 264 

A9 

E8 

LDA 

#E8 


7301 

F3 

F4 


SBC 

(F4, S) , Y 

7 359 

DO 

00 


7266 

8D 

84 72 

STA 

7284 


7303 

F2 

El 


SBC 

(El) 

735B 

00 

00 


7269 

24 

1D 

BIT 

1D 


7 305 

F4 

E9 

EF 

PEA 

EFE9 

735D 

00 

00 


7 26B 

10 

OB 

BPL 

7278 

{ + OB } 

7 308 

EE 

AO 

AO 

INC 

AOAO 

735F 

00 

8D 


726D 

A2 

20 

LDX 

#20 


7 30B 

AO 

13 


LDY 

#13 

7361 

AO 

AO 


726F 

A9 

07 

LDA 

#07 


7 30D 

AO 

BD 


LDY 

#BD 

7363 

CD 

EF 

E4 

7271 

85 

IC 

STA 

IC 


7 30F 

BE 

AO 

D3 

LDX 

D3A0, Y 

7366 

E5 

AO 


7 273 

A9 

CA 

LDA 

#CA 


7 312 

D4 

CF 


PEI 

CF 

7 368 

EE 

EF 

EE 

72 75 

8D 

84 72 

STA 

7284 


7314 

DO 

00 


BNE 

7 316 ( + 00) 

7 36B 

AO 

F3 


7278 

A4 

FE 

LDY 

FE 


7316 

00 

00 


BRK 

00 

736D 

E5 

EC 


7 2 7 A 

8A 


TXA 



7 318 

8D 

AO 

AO 

STA 

AOAO 

736F 

E5 

E3 


72 7 B 

20 

71 F8 

JSR 

F 871 


7 31B 

OA 



ASL 


73 71 

F4 

E9 

EF 

72 7E 

FO 

07 

BEQ 

7287 

( + 07) 

7 31C 

AO 

BD 


LDY 

#BD 

7374 

EE 

EE 

E5 

7280 

C9 

OD 

CMP 

#0D 


7 31E 

BE 

AO 

D2 

LDX 

D2A0, Y 

7377 

8D 

AO 

AO 

7282 

FO 

03 

BEQ 

728 7 

( + 03) 

7321 

E5 

CA 


SBC 

CA 

7 37 A 

EF 

F5 

AO FO 

7284 

CA 


DEX 



7323 

CF 

D5 

C5 D2 

CMP 

D2C5D5 

737E 

EC 

F5 

F3 

7285 

80 

F3 

BRA 

7 2 7 A 

{—OD} 

7327 

AO 

AO 


LDY 

#A0 

7381 

AO 

E4 


7287 

86 

FF 

STX 

FF 


7329 

AO 

03 


LDY 

#03 

7383 

E5 

AO 


7 289 

8A 


TXA 



7 32B 

AO 

BD 


LDY 

#BD 

7385 

E3 

EF 


7 28A 

20 

00 F8 

JSR 

F800 


732D 

BE 

AO 

C3 

LDX 

C3A0, Y 

7387 

F5 

EC 


7 28D 

20 

DD FB 

JSR 

FBDD 


7330 

CF 

CE 

D4 C9 

CMP 

C9D4CE 

7389 

E5 

F5 


7290 

60 


RTS 



7334 

CE 

D5 

C5 

DEC 

C5D5 

738B 

F2 

00 


7 291 

EA 


NOP 



7337 

D2 

8D 


CMP 

(8D) 

738D 

00 

00 


7292 

A5 

IB 

LDA 

IB 


7339 

AO 

AO 


LDY 

#A0 

738F 

00 

00 


7294 

20 

88 71 

JSR 

7188 


733B 

04 

AO 


TSB 

AO 

7 391 

00 

00 


7297 

A8 


TAY 













7 298 

A5 

IC 

LDA 

IC 













72 9A: 20 88 
7 29D: AA 
729E: 20 71 
7 2 Al : 85 1F 
7 2 A3: A5 1E 
7 2A5: 85 30 
72A 7 : 8 A 
7 2A8: 20 00 
7 2 AB : 20 A8 
7 2AE: A5 1F 
72B0: 20 64 
72B3: 8A 
72B4 : 20 00 
7 2B7: A5 1E 
72B9: 20 64 


71 

F8 


F8 

FC 

F8 

F8 

F8 


72BC: 
7 2BD: 
72BE: 
72BF: 
72C0 : 
7 2C2 : 
72C4 ; 
7 2C6: 
72C7: 
7 2C8: 
72C9: 
72CB : 
72CD : 
72D1 : 
7 2D3 : 
7 2D4 : 
7 2D6: 
72D9: 
72DB : 
7 2 DD : 
72E1 : 
72E4 : 
72E6: 


60 

EA 

EA 

EA 

A5 1D 
49 80 
85 1D 
60 
EA 
EA 

E5 F5 
AO CE 
CF D2 
AO AO 
OA 

AO BD 
BE AO 
E5 F5 
AO CE 
CF D2 
CC AO 
AO 06 
AO BD 


LDA A OBE, X 
CP Y EF 
INC E5EE 
LDY #D3 
CMP D4D5CC 
CMP #CF 
DEC AO AO 
LDY #13 
LDY #BD 
LDX D3A0, Y 
PEI CF 

BNE 735B (+00} 
BRK 00 
BRK 00 
BRK 8D 
LDY #A0 
CMP E4EF 
SBC AO 
INC EEEF 
LDY #F3 
SBC EC 
SBC E3 
PEA EFE9 
INC E5EE 
STA AOAO 
SBC F0A0F5 
CPX F3F5 
LDY #E4 
SBC AO 
SBC EF, S 
SBC EC, X 
SBC F5 
SBC (00) 

BRK 00 
BRK 00 
BRK 00 


CD 8D 


CA 


CD Cl 
AO 


JSR 7 188 
TAX 

JSR F 871 
STA 1F 
LDA 1E 
STA 30 
TXA 

JSR F800 
JSR FCA8 
LDA 1F 
JSR F864 
TXA 

JSR F800 

LDA 1E 

JSR F 8 64 

RTS 

NOP 

NOP 

NOP 

LDA 1D 

EOR #80 

STA 1D 

RTS 

NOP 

NOP 

SBC F5 

LDY #CE 

CMP 8DCDD2 

LDY #A0 

ASL 

LDY #BD 
LDX CAAO, Y 
SBC F 5 
LDY #CE 
CMP Cl CDD 2 
CPY AOAO 
LDY #06 
LDY #BD 


BugByter 

A. Avrane, dans le numéro 13 de Pom’s, regrettait 
l'impossibilité d'imprimer depuis BugByter. Pour 
remédier à cet état de chose, voici un petit patch et la 
procédure de mise en place : 

Booter sur la disquette Master DOS 3.3 
CALL - 151 

BLOAD BUGBYTER , A$1000 
1729.-4C 00 EA 


1679: 

4C 

20 

EA 

EA 












2A00: 

C9 

9B 

DO 

03 

4C 

F8 

D6 

C9 

D7 

DO 

06 

8D 

1D 

EA 

4C 

2D 

DI 

C9 

C5 

DO 

05 

A9 

00 

8D 

1D 

EA 

4C 

2D 

D7 

00 

00 

EA 

A9 

80 

2C 

1D 

EA 

10 

3B 

AE 

AC 

E7 

CA 

BD 

10 

E9 

8D 

4B 

EA 

BD 

28 

E9 

8D 

4C 

EA 

AC 

B7 

E7 

A9 

50 

8D 

79 

06 

A9 

00 

8D 

F9 

05 

85 

36 

A9 

Cl 

85 

37 

B9 

28 

06 

29 

7F 

C9 

20 

B0 

02 

09 

40 

20 

00 

Cl 

C8 

CO 

27 

DO 

ED 

A9 

OD 

20 

00 

Cl 

68 

8D 

98 

E7 

4C 

7D 

D6 

00 






BSAVE BUGBYTER, A$1000 , L$1A69 (sur une copie !) 

En mode SINGLE STEP, l'appui sur W(rite) 
démarre l'impression et l'appui sur E(nd) l'arrête. 
Une fois la commande W donnée, on peut passer en 
mode Trace si on le désire. 


Michel Duroc, 97220 Trinité 
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C.L.M. & BBDO. 


On trouve plus facilement 

avec 10 ans 




Certaines évolutions sont aussi 

im portantes que des révolutions. 

Le plus difficile quand on débute, 
c’est de débuter. Car toutes les 
propositions d’emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l’Apple IIgs, il 
débute avec 10 ans d’expérience. 

Comment? C’est très simple, 
il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 
un Apple II classique et miniaturisé. 

Il profite ainsi de 10 ans de 
développement de logiciels et 
d’expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l’Apple II. L’Apple IIgs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif ; en mode émulation 
(c’est-à-dire lorsque vous utilisez un 




programme de votre ancien Apple II) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 

Débuter connu , c’est 16.000 propositions 

d’emploi. 

Avec l’IWM (Integrated Woz 
Machine*) l’Apple IIgs peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 
nombre de 16.000 logiciels étant estimatif 
car la seule chose qu’un Apple IIgs soit 
incapable de calculer, c’est le nombre 
d’emplois qu’il est capable de tenir. 

Avec le nouveau système 
d’exploitation ProDOS, l’Apple IIgs 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 

* En hommage à Steve Wozniak, co -fondateur de la Société 
Apple et créateur de l’Apple II. 


WM 


un emploi quand on débute 
d expérience. 



i 


Macintosh, et la connexion de 
nouveaux périphériques. 

G et s , cela veut dire Graphique et son. 

L’imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 4096 nuances de couleurs 
disponibles ? C’est probable. Ce qui est 
certain, c’est qu’une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n’en croyez pas vos yeux, vous n’en 
croirez pas vos oreilles non plus. Le 
coprocesseur “son” choisi par 
Apple a déjà une brillante carrière 
derrière lui puisqu’il est employé par 
les plus grands synthétiseurs du 
marché. C’est l’ENSONIQ, capable de 
générer 16 voix, 


et il ne lui manque même pas la parole. 

Les relations nécessaires pour réussir. 

En 10 années, l’Apple II a eu tout 
le loisir de se faire d’excellentes relations 
de travail, imprimante, modem, disque 
dur, que l’Apple lies continuera à 
entretenir et développer ; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la LaserWriter 
réservée jusqu’à présent à Macintosh. Il 
peut aussi recevoir le disque dur SCSI. 

L’Apple IIgs possède 7 connecteurs 
d’extension permettant, à l’aide d’une 
multitude de cartes d’interfaces, de le 
relier à tous les types d’unités périphériques. 

Acheter un Apple, c’est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 


Apple présente l’Apple IIgs. 





Apple, le logp Apple, Apple IIGS, ProDOS, Macintosh, Apple Talk, LaserWriter et GS Paint sont des marques déposées par Apple Computer Inc. 
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À la rédaction de Pom’s, les 
pauses — rares et studieuses (1) 
— sont souvent consacrées à la 
cinématique des sphères, 
entendez le billard sur Macintosh. 
L'objet de notre passion est le 
Billard Parlour, freeware de 
Crandall, Gillespie et Lew mis à 
votre disposition sur la disquette 
‘Mac F. La qualité de ce 
programme nous incite à vous le 
présenter plus en détail. 


Présentation 

La copie d'écran ci-contre illustre 
la qualité de la présentation de ce 
jeu bien réaliste. Disposé au 
centre de l'écran, le tapis vert, 
au-dessus, le compteur de points 
et en haut, le boulier. 

À l'aide de la souris, on fait 
apparaître la queue de billard et 
on lui donne l'angle voulu ; la 
force de l'impact est déterminée 
par la position de la souris. Tout 
cela est très instinctif. Il ne faut 
pas taper trop violemment : outre 
que le réalisme en souffre, les 
billes pourraient passer les unes 
au travers des autres sans que le 
programme ne gère un choc. 

Comme bien des freewares, le 
mode d'emploi et le programme 
sont en anglais, mais ce jeu est si 
connu que cela ne devrait pas 
constituer un obstacle. 

Les possibilités 

Outre le jeu standard, il est 
possible de positionner les billes 
comme on le souhaite pour 
étudier un coup. 

L'effet donné à la bille est maté- 
rialisé par un point sur un disque, 
point v à positionner avant de 
jouer. À défaut, ce point est au 
zéro théorique, c'est-à-dire sans 
effet : le ‘rétro’ s'obtient en tapant 
plutôt au bas de la bille. De la 
même manière, on peut doser 
l'effet latéral. 

Un bruit de collision qui rappelle 
fidèlement celui de l'ivoire est 
généré à chaque impact ; on peut 
le supprimer. 

Le compteur évite toute ambiguïté 
sur l'obtention des points mais. 


en billard français, il ne 
fonctionne qu'en ‘trois bandes’. 

Possibilités qui n'existent pas 
dans les traditionnelles salles de 
billard : annuler et reprendre un 
coup, mais également rejouer un 
coup pour en contrôler les 
trajectoires ; un menu en propose 
le tracé. 


Les billards 

Ce programme est complet : il 

propose le jeu : 

• avec les 3 billes du billard 
français ; 

• avec 9 ou 15 billes numérotées 
(à jouer dans l'ordre) ; 

• avec 15 billes numérotées et 6 
non numérotées : 

• avec 3, 6, 9, 10 ou 15 billes 
non numérotées. 

• Lag, qui est un exercice de tir 
de précision. 

Une loupe est disponible pour 

contrôler les numéros des billes 


numérotées mais ils sont en fait 
lisibles. 

Le programme 

Écrit en Rascal (2), il ne laisse 
pas de place au hasard : les 
coordonnées, les vitesses, 
l'analyse des collisions compte 
tenu de l'effet donné et les 
trajectoires font l'objet de calculs 
mathématiques (toujours sur des 
entiers 16 bits pour une question 
de rapidité). Le help donne, en 
anglais, des informations sur la 
méthode de calcul des collisions. 
L'affichage des billes est réalisé à 
l'aide de deux images pour 
donner une impression de 
rotation, mais il est un peu lent 
lorsque 21 billes sont sur le tapis. 

(1) Précisions à l'attention du Rédacteur 
en Chef. 

(2 Rascal de Metaresearh Inc. 1 100 SE 
Woodward, Portland, OR 97202 
États-Unis. 

û 


40 


Pom's n° 30 



^ Mon Z 

Philippe Mathieu 

Nous supposerons dans cet article que le lecteur connaît déjà 
ThinkTank ou, pour le moins, les principes de fonctionnement des 
programmes de gestion d'idées dont ThinkTank a été le premier et 
brillant exemple. 

Point fort : More et le Macintosh 

More, digne successeur de ThinkTank, possède par rapport à son 
prédécesseur un fonctionnement plus "Macintosh", notamment 
grâce à son utilisation des ascenseurs. Il possède aussi une plus 
grande souplesse dans la réorganisation, à l'aide de la souris, de la 
hiérarchie des idées. Remarquons enfin la possibilité d'ouvrir 
simultanément plusieurs fenêtres et de Copier/Coller entre elles. 

Point fort : présentation variée des documents 
Outre les classiques liste et table des matières, More propose un 
dessin des titres et sous-titres sous la forme d'un organigramme, 
ainsi que la "projection" de planches et tableaux pour les 
conférences ou toute utilisation similaire. 

Ces tableaux peuvent défiler, soit à intervalles réguliers, soit à la 
commande. Un défilement rapide permet de créer une sorte 
d'animation. Il est très aisée de coller dans More des dessins et 
graphiques créés par d'autres programmes, par exemple MacPaint 
ou MacDraw, et aussi par lui-même (organigramme collé comme 
dessin). Par ailleurs, More dispose de nombreuses options de 
polices caractères, styles, cadres et même de l'impression en 
couleurs sur l'ImageWriter II. 

Point fort : grande puissance d'organisation 

• possibilité de créer des "clones", des doubles d'une sélection qui 
seront modifiés si l'on modifie l'original (et inversement) ; 

• "marquage", en liaison avec la recherche automatique, permettant 
de regrouper des titres ayant un certain contenu ; 

• création et utilisation de modèles (gabarits) réutilisables dans 
divers fichiers. 

Point fort : autres fonctionnalités utiles 

More possède de larges facilités d'échange avec d'autres logiciels : 

• accueil de documents provenant d'autres logiciels, y compris 
lui-même, avec possibilité d'insertion de ces documents dans le 
document courant ; 

• envoi de documents vers d'autres logiciels ; 

• gestion intéressante du temps : calendrier, dates, heures. 

Le numérotage téléphonique automatique est possible, pour peu 
qu'on utilise un modem autorisant ce type d'opération. 

Inconvénient : impression 

Il est impossible de placer volontairement des sauts de page à 
l'impression, de sorte que les coupures se produisent de façon 
systématique quand la page est pleine (c'est-à-dire généralement au 
mauvais endroit). 

Inconvénient : fenêtres de texte 

Le traitement de texte reste assez rudimentaire. On ne peut par 
exemple pas changer les caractères, la taille ou le style d'un mot ou 
d'un groupe de mots à l'intérieur d'une même fenêtre. 
Heuresement, c'est possible d’une fenêtre à l'autre. On ne peut pas 
non plus voir à l'écran ce que sera l'apparence d'un texte après 
justification, celle-ci n'intervenant que lors de l'impression. Par 
ailleurs, les fenêtres de texte ne peuvent être ouvertes qu'une à une, 
après avoir sélectionné les sous-titres correspondants, ce qui est 
particulièrement fastidieux. 

Quelques "gadgets" superflus 

On peut se demander par ailleurs si certains gadgets, qui 
compliquent inutilement le maniement du logiciel, n'auraient pas pu 


STRUCTUREXPERT 


La solution pour programmer de manière 
structurée en MSBASIC ™ et ZBASIC ™ . 
STRUCTUREXPERT ™ vous permet de 
disposer d'un ensemble d'analyses 
qui peuvent être visualisées (fenêtres 
"scrollables"), sauvées séparément Sur 
fichiers, ou imprimées : 

. Arborescence complète (descendante 
et ascendante) des appels GOSUB et 
CALL. 

. Listes triées sur plusieurs types de 
critères des GOSUB et des CALL. 

. Statistiques : fréquence d'appel de 
chaque routine. 

. Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 

STRUCTUREXPERT 495 F TTC + 20F de port 
Paiements par CB ou chèques adressés à 
Q.S.I. 149, rue OBERKAMPF 75011 PARIS 
tel : (16)142493795 


être supprimés : 

• trois modes de divisions en fenêtres ; on ne voit pas à quoi sert la 
division en diagonale ; 

• trop souvent, trois méthodes pour obtenir le même résultat ; par 
exemple, pour la commande Etendre, qui peut être mise en 
œuvre par un menu déroulant, un clic ou une commande clavier. 

Bien que mise en relief par l'auteur du programme, la possibilité 
d'associer des valeurs à des sous-titres et de les additioner 
automatiquement en remontant la hiérarchie des titres ne semble pas 
passionnante. 

Attention, danger : les annulations 

Il n'exite pas de commande d'annulation de l'opération précédente, 
comme c'est le cas maintenant dans pratiquement tous les 
programmes Macintosh. C'est une lacune. 

Conclusion 

More est un produit original et puissant, mais il serait bien agréable 
d'avoir rapidement une version More 2.1 dans laquelle la plupart 
des problèmes que nous avons indiqués ci-dessous seraient 
résolus. 

G 


Pom’s recherche pour les 

mois de juillet et/ou août un ou deux 
stagiaires. Bonne maîtrise du 
Macintosh, du français et de 
l'orthographe requise. 

Envoyez votre CV à Hervé Thiriez, 
Éditions MEV, 12, rue d'Anjou 78000 
Versailles avant le 15 juin. 
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T-Pom's 


Jm-Luc'Mzanegui 



MiniteC, Macintosh & le 11 


“TPom’s”, qui répond à une 
importante demande, autorise la 
récupération de l'annuaire électro- 
nique sous la forme d'un fichier 
‘texte’ directement exploitable. 
Ce programme permet aussi, 
accessoirement, le traitement de 
fichiers créés à partir du 
programme “Minitel” (Pom’s 
numéro 27). Il s'agit d'une 
application autonome écrite en 
assembleur MDS 68000, 
fonctionnant sur tous les 
Macintosh et ce quel que soit 
l'environnement. Comme pour 
les programmes “Minitel” et 
“InterPom’s” (Pom’s numéro 28) 
un câble-interface Minitel/ 
Macintosh est requis ; si vous ne 
l'avez pas déjà, vous pouvez le 
fabriquer en vous aidant des 
schémas publiés dans les 
numéros 27 ou 28 de Pom’s ou, 
si vos dons ou votre temps ne 
vous le permettent pas, on peut 
aussi commander cette liaison 
indispensable directement à la 
revue. Pour cela, vous trouverez 
un bon de commande page 75. 


Utilisation 
de TPom’s 

Le programme utilise quatre 
menus déroulants ; voici le 
premier : 


Fichier 



m 

Nouueau... 360 

fermer >BF 


□000 

0000 

0000 

Numéros 


Nouveau... 

L'article ‘Nouveau...’ de ce 
menu sera employé pour choisir 


le nom du fichier destiné à 
recevoir les informations émises 
par TPom’s. Les fichiers ainsi 
créés portent le type ‘texte seul’ 
MacWrite/DiskWrite (TEXT 
MACA), donc ‘double 
cliquables’ et exploitables avec 
n'importe quel logiciel capable de 
traiter ce format. Une fois le 
choix du nom effectué, il 
s'affiche dans la barre de titre de 
la fenêtre. Si le programme ne 
trouve pas de fichier ouvert, la 
barre de titre contient la mention 
‘Pas de fichier ouvert ’. 
L' ‘équivalent clavier’ de cet 
article est ‘Commande-O’. 


Fermer 

Nous trouvons l'article ‘Fermer’ 
valide dans deux cas : 

• un accessoire de bureau est 
affiché et actif. Dans ce cas, 
une action sur cet article - ou 
son équivalent clavier 
‘Commande-F’ ferme l'acces- 
soire en question ; 

• un fichier est ouvert. Le 
traitement consiste alors en la 
fermeture du fichier courant, le 
remplacement du nom de 
fichier dans la barre de titre par 
la mention ‘Pas de fichier 
ouvert’, et le changement de la 
forme du curseur. 

En effet, comme le programme 
peut fonctionner ‘à vide’ et afin 
de bien marquer l'ouverture - ou 
la non-ouverture d'un fichier, les 
curseurs ont des formes 
différentes selon les cas : 

• curseur en forme de roue si un 
fichier est ouvert (identique à 
celui employé pour l'accessoire 
de cryptage “Kruptos” du 
précédent numéro de Pom’s) ; 

• curseur en forme de ‘sens 
interdit’ si il n'y a pas de 
fichier ouvert. 

Un éventuel fichier ouvert sera 


aussi fermé si : 

• le choix d'un autre fichier est 
effectué ; 

• l'utilisateur quitte le pro- 
gramme. 

Numéros 

Si l'on veut se constituer un 
fichier d'adresses, on souhaitera 
conserver les numéros de 
téléphone. Cependant, les 
numéros de téléphones sont 
parfaitement inutiles lorsqu'il 
s'agit de faire un ‘mailing’. 
TPom’s permet donc, grâce à 
l'article ‘Numéros’, de choisir le 
format de stockage : avec ou sans 
numéros. 

Dans le cas d'un stockage sans 
numéro, le format du fichier 
comprend quatre zones séparées 
par un ‘retour-chariot’ : 

1 Nom 

2 Prénom 

3 Adresse 

4 Ville 

Pour un stockage avec numéros, 
le format comprend cinq zones : 

1 Nom 

2 Prénom 

3 Adresse 

4 Ville 

5 Numéro de téléphone 

Afin de faciliter le traitement du 
fichier d'adresses par un éventuel 
autre programme, chaque ‘fiche’ 
est précédée par une ‘puce’ (•), et 
ce quel que soit le format utilisé 
(avec ou sans numéros), ce qui 
nous donne par exemple, sans 
numéros : 

Electricité de France-Gaz de 
France (E.D.F-G.D.F) 

46 bd St Antoine 
LE CHESNAY 

Electricité de France Gaz de 
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France 

7 bd Jean Jaurès 
HOUILLES 

Société Agricole d' Electricité 
de la Région d'Orgerus 

33 r Gare 
TACOIGNIERES 

et, avec numéros : 

Electricité de France-Gaz de 
France (E.D.F-G.D.F) 

4 6 bd St Antoine 

LE CHESNAY 

(1) 39 54 90 10 


Source 



^27^ 

Fichier ‘Pom's 27’... 


ËÜ 

1 Minitel 

B 



Fichier ‘Pom’s 27’... 

. . . sera utilisé si l'on désire traiter 
un fichier créé par le programme 
du numéro 27 de Pom’s. La 
fenêtre standard de sélection 
s'affiche, ne laissant apparaître 
que les noms des fichiers cités 
plus haut. Une fois la sélection 
faite, TPom’s fait rapidement son 
travail, ne ‘rendant la main’ qu'à 
l’achèvement de la tâche. 


Electricité de France Gaz de 
France 


7 bd Jean Jaurès 

HOUILLES 

(1) -39 13 24 45 

Société Agricole d ' Electricité 
de la Région d'Orgerus 


33 r Gare 
TACOIGNIERES 
(1) 34 87 22 17 

Lorsque l'option ‘avec numéros’ 
est valide, l'article correspondant 
apparaît coché et, pendant le 
traitement, les numéros de 
téléphone s'affichent à l'écran. 
Par défaut, les numéros ne sont 
pas conservés. Notons enfin que, 
comme il est possible de changer 
de format à tout instant, un même 
fichier peut contenir des ‘fiches’ 
avec et sans numéros de 
téléphone. 


Edition 


Hnnuler 

«Z 

Couper 

«H 

Copier 

sec 

Coller 

seu 

Effacer 


TPom’s n'a pas recours au 
‘Couper/Copier/Coller’ ; le menu 
édition n'est donc là que pour 
répondre aux exigences - 
légitimes - du ‘User Interface 
Guideline’, et ne deviendra valide 
qu'en présence d'un accessoire 
de bureau actif. 


Minitel 

Dans ce cas, les informations 
traitées proviennent du Minitel, 
via l'interface série ‘communica- 
tion’ du Macintosh. Ce sera 
certainement la manière la plus 
courante d'employer TPom’s ; 
c'est pourquoi elle est celle valide 
par défaut. 




BUfl 

uers le ‘Finder’ 

3€Q 

< 


juers une application... 

8«fl 


TPom’s offre deux façon de 
sortir du programme : 

• en provoquant un retour au 
‘Finder’ (méthode courante) ; 

• en proposant l'appel direct de 
l'application de votre choix. Il 
n'est pas nécessaire que 
l'application à appeler soit sur 
un volume ‘en ligne’. 

Il est possible d'utiliser les 
équivalents claviers Comman- 
de-Q et Commande-A. 

Problèmes 

possibles 

Prise en compte 
des informations 

TPom’s ne prend en compte les 
informations issues du Minitel - 
ou puisées dans un fichier 


‘Pom’s 27’ - que lorsqu'il reçoit 
le premier nom de ville. 
Autrement dit, si vous lancez 
TPom’s pendant que vous 
consultez, par exemple, la liste 
des plombiers de Paris, il n'y a 
aucune chance pour que le nom 
de la ville change, et notre 
programme ne va rien retenir. 
Pour éviter ce genre de situation, 
il est préférable de faire démarrer 
TPom’s avant de commencer la 
consultation de l'annuaire 
électronique. Une autre méthode 
permet de se sortir d'embarras : 
appuyer sur la touche répétition, 
ce qui oblige le serveur des PTT à 
réémettre, entre autre, le nom de 
la ville, déclenchant ainsi la prise 
en compte des informations. 

Informations erronées 

L'annuaire électronique ne 
propose pas de zones fixes - sauf 
pour le numéro de téléphone - 
dans lesquelles TPom’s aurait pu 
puiser. Notre programme fait 
donc de son mieux en analysant 
la multitude de codes qui lui 
parviennent. Dans ces conditions, 
il peut arriver (en fait, il arrive !) 
que certaines informations 
stockées dans le fichier texte soit 
erronées. De ce fait, un petit coup 
d'œil dans le fichier avec un 
logiciel de traitement de texte peut 
s'avérer utile. 

Zones 

Bien qu'étant affichés dans la 
fenêtre pendant le traitement, les 
départements ne sont pas 
enregistrés, ceux-ci ne présentant 
pas d'intérêt. 

L'annuaire électronique n'indi- 
quant pas le code postal, il sera 
nécessaire, pour un ‘mailing’ par 
exemple, de faire un remplace- 
ment systématique VILLE — 
CODE POSTAL / VILLE. 

Mauvaise connexion 

Le programme aura des 
difficultés à fonctionner si le 
câble de liaison est mal - ou pas - 
connecté. Afin d'éviter cela, le 
programme utilise des curseurs 
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qui doivent s'animer à la 
réception du moindre caractère. 

Si tel n'est pas le cas, une 
vérification de la ‘connectique’ 
s'impose. 

a 

Sources et fichiers du programme "T_Pom's" 

* le symbole indique la continuité d'une ligne. 


a Fichier PTT 

Nom : PTT Paris 
Prénom : comédiens des PTT 
Adresse: 181 au Choisy 13e 
Uille : PARIS 
Département : PARIS 

Numéro : (1) 47 07 57 42 


Fichier T_Pom's.Job' 

ASM T_Pom's.Asm Exec Edit 

LINK T_Pom's.Link Exec Edit 
RMAKER T_Pom's.R Finder Edit 


Fichier T_Pom's.Link' 
1 

TPom's 

/ Output T_Pom's.Code 
/Type TEMP' 

$ 


Source 'T_Pom's.Asm' 

INCLUDE T_Pom's/lAsm 
INCLUDE TJ>om's/2Jtsm 
INCLUDE T_Pom's/3Asm 
INCLUDE T_Pom's/4Asm 
END 


Source 'T_Pom's/l.Asm' 


INCLUDE 

FSEqu.Txt 

INCLUDE 

Traps.Txt 

INCLUDE 

SysEqu.D 

INCLUDE 

ToolEqu.D 

INCLUDE 

QuickEqu.D 

INCLUDE 

PackMacs.Txt 

MenuPomme 

EQU 1 

mAPropos 

EQU 1 

MenuFichier 

EQU 2 

mNouveau 

EQU 1 

mFermer 

EQU 3 

mNumero 

EQU 5 

MenuEdition 

EQU 3 

mAnnuler 

EQU 1 

mCouper 

EQU 3 

m Copier 

EQU 4 

mCoîler 

EQU 5 

mEffacer 

EQU 7 

MenuSource 

EQU 4 

mPoms27 

EQU 1 

mMinitel 

EQU 2 

MenuSortie 

EQU 5 

mQuitter 

EQU 1 

mApplication 

EQU 2 

DialogAPropos EQU 1 

DialogBis 

EQU 501 

bOK 

EQU 1 


Zéro 

EQU 0 

Un 

EQU 1 

Deux 

EQU 2 

Trois 

EQU 3 

Quatre 

EQU 4 

Début 

BSR.S 

Initialisations 

BSR 

Menus 

BSR 

OuvreSerie 

BSR 

OuvertureF 

BRA 

Evénements 

Initialisations 

PEA 

-4(A5) 

JnitGraf 

InitFonts 

MOVE.L 

#$OOOOFFFF,DO 


FlushEvents 

.InitWindows 

.InitMenus 


CLR.L 

-(SP) 

InitDialogs 

_TEInit 

PEA 

_SetCursor 

Curseurlbis 

SUBQ.L 

_TickCount 

#4,SP 

MOVE.L 

(SP)+J 

CompteurTiming(A5) 

MOVE 

#l,Numero_Curseur(A5) 

SF 

DrMenuFichier(A5) 

ST 

DrMinitel(A5) 

ST 

DrComl(A5) 

ST 

DrLPTIV alide(A5) 

SF 

DrNumero(A5) 

SF 

DrDepart(A5) 

SF 

DrCouleur(A5) 

SF 

DrN umero_en_cours(A5) 

SF 

DrLigne(A5) 

SF 

DrColonne(A5) 

SF 

DrRepere(A5) 

SF 

DrAttente Affichage J 
Ville(A5) 

SF 

Dr_Attente_Ville(A5) 

SF 

Dr_Attente_J 

Departement(A5) 

SF 

Dr_Attente_Prenom(A5) 

SF 

Dr_Attente_J 

Nom_Suite(A5) 

SF 

Dr_Attente_Adresse(A5) 

SF 

DrAffichage(A5) 

SF 

Copie_Affichage(A5) 

SF 

Copie_Affichage+128(A5) 

SF 

Copie_Affichage+256(A5) 

SF 

Copie_Affichage+384(A5) 

SF 

Copie_Affichage+448(A5) 

SF 

Copie_Affichage+512(A5) 

BSR 

Zéro Chaines Nom 

MOVE 

_Pack2 

RTS 

#DILoad,-(SP) 


Menus 

SUBQ.L #Quatre,SP 
MOVE #MenuPomme,-(SP) 

_GetRMenu 

MOVE.L (SP),HandleMPom me(A5) 
MOVE.L HandleMPomme(A5),-(SP) 
CLR -(SP) 

_InsertMenu 

MOVE.L #’DRVR',-(SP) 
_AddResMenu 
SUBQ.L #Quatre,SP 
MOVE #MenuFichier,-(SP) 

_GetRMenu 

MOVE.L (SP),HandleMFichier(A5) 
CLR -(SP) 

JnsertMenu 
SUBQ.L #Quatre,SP 
MOVE #MenuEdition,-(SP) 

_GetRMenu 

MOVE.L (SP) / HandleMEdition(A5) 
CLR -(SP) 

JnsertMenu 
SUBQ.L #Quatre,SP 
MOVE #MenuSource,-(SP) 

_GetRMenu 

MOVE.L (SP),HandleMSource(A5) 
CLR -(SP) 

JnsertMenu 
SUBQ.L #Quatre,SP 
MOVE #MenuSortie,-(SP) 

_GetRMenu 

MOVE.L (SP),HandleMSortie(A5) 
CLR -(SP) 

JnsertMenu 

@1 MOVE.L HandleMEdition(A5),J 
-(SP) 

CLR -(SP) 

_DisableItem 

_DrawMenuBar 

RTS 

Evénements 

_SystemTask 


BSR 

TesteEntree 

BEQ.S 

@1 

BSR 

NiveauO 

BRA.S 

Evénements 

@1 SUBQ.L 

#2,SP 

MOVE 

#$0FFF,-(SP) 

PEA 

EnregE vents (A5) 

_GetNextEvent 

TST 

(SP)+ 

BEQ.S 

Evénements 

BSR.S 

Traitementevents 

BEQ.S 

RTS 

Evénements 

Traitementevents 

MOVE 

EnregEvents+J 

evtNum(A5),I30 

ADD 

D0,D0 

MOVE 

TableEvenements(D0),D0 

JMP 

TableEvenements(DO) 
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TableEvenements 


DC 

Eventsuivant-| 

TableEvenements 

DC 

Souris-TableEvenements 

DC 

Eventsuivant-J 

TableEvenements 

DC 

Touche-TableEvenements 

DC 

Eventsuivant-J 

TableEvenements 

DC 

Touche-T ableEvenements 

DC 

MiseJour-TableEvenements 

DC 

Disquette-J 

TableEvenements 

DC 

Active-TableEvenements 

DC 

Eventsuivant-J 

TableEvenements 

DC 

Eventsuivant-J 

TableEvenements 

DC 

Eventsuivant-J 

TableEvenements 

Eventsuivant 

MOVEQ #Zero,D0 

RTS 

Souris 

SUBQ.L 

#Deux,SP 

MOVE.L 

EnregEvents+J 

evtMouse(A5),-(SP) 

PEA 

EnregEvents+evtMeta+J 

Deux(A5) 

_FindWindow 

MOVE 

(SP)+,D0 

ADD 

DO, DO 

MOVE 

TableFenetre(D0),D0 

JMP 

TableFenetre(DO) 


TableFenetre 


Touche 


BTST 

#CmdKey,EnregEvents+J 

evtMeta(A5) 

BNE.S 

Commande 

BRA 

Eventsuivant 

Commande 

CLR.L 

-(SP) 

MOVE 

EnregEvents+evtMessage+J 

Deux(A5),-(SP) 

_MenuKey 

MOVE 

(SP)+,D1 

MOVE 

(SP)+,D0 

BRA 

BarMenuC 

Misejour 

BSR 

SPMiseJour 

BRA 

Eventsuivant 

SPMiseJour 

MOVEA.L 

EnregEvents+J 

evtMessage(A5),A4 

MOVE.L 

A4,-(SP) 

MOVE.L 

(SP),-(SP) 

_BeginUpdate 

_SetPort 

BSR 

AfficheTitre 

BSR 

MiseJourZones 

MOVE.L 

A4,-(SP) 

_EndUpdate 

RTS 

Disquette 

BRA 

Eventsuivant 


DC 

Eventsuivant-TableFenetre 

Active 

■ 

DC 

BarMenu-TableFenetre 

MOVEA.L 

EnregEvents+J 

DC 

fenetreSys-TableFenetre 


evtMessage(A5),A4 

DC 

Contenu-TableFenetre 

CMPI 

#userKind,J 

DC 

DeplaceFen-T ableFenetre 


windowKind(A4) 

DC 

Contenu-TableFenetre 

BNE 

Eventsuivant 

DC 

Eventsuivant-TableFenetre 

MOVE 

EnregEvents+J 

evtMeta(A5),D7 

BarMenu 


BTST 

#ActiveFlag,D7 

SUBQ.L 

#Quatre,SP 

BEQ.S 

DeActiver 

MOVE.L 

EnregEvents+J 

evtMouse(A5),-(SP) 

MOVE.L 

_SetPort 

A4, -(SP) 

_MenuSelect 

BSR 

ChangeCurseur 

MOVE 

(SP)+,D1 

DeActiver 

MOVE 

(SP)+,D0 

BSR 

ValideMenus 

BarMenuC 

ADD 

D1,D1 

BRA 

Eventsuivant 

MOVE 

TableMenus(Dl),Dl 

fenetreSys 


JMP 

TableMenus(Dl) 

PEA 

EnregEvents(A5) 

TableMenus 


MOVE.L 

EnregEvents+evtMeta+J 

DC 

Eventsuivant-TableMenus 


Deux(A5),-(SP) 

DC 

TraitPomme-TableMenus 

_SystemClick 

DC 

DC 

TraitFichier-TableMenus 

TraitEdition-TableMenus 

BRA 

Eventsuivant 

DC 

T raitSource-TableMenus 

DeplaceFen 


DC 

TraitSortie-TableMenus 

MOVE 

EnregEvents+J 

evtMeta(A5),D0 

FinMenu 


ANDI 

#2048+256,D0 

CLR 

-(SP) 

CMPI 

#2048+256,DO 

_HiliteMenu 

BNE.S 

@1 

BRA. S 

Eventsuivant 

SUBQ.L #Quatre,SP 
_FrontWindow 

TraitFichier 


MOVE.L 

(SP)+,D3 

ADD 

D0,D0 

MOVE.L 

PointeurFenetre(A5),-(SP) 

MOVE 

TableFichier(D0),D0 

LEA 

RectFenetre,A3 

JMP 

TableFichier(DO) 

MOVE.L 

(A3),-(SP) 

TableFichier 


CMP.L 

PointeurFenetre(A5),D3 

DC 

FinMenu-TableFichier 

SEQ 

-(SP) 

DC 

TmNouveau-TableFichier 

_MoveWindow 

DC 

FinMenu-TableFichier 

BRA 

Eventsuivant 

DC 

TmFermer-TableFichier 

@1 MOVE.L 

EnregEvents+evtMeta+J 

DC 

FinMenu-TableFichier 


Deux(A5),A4 

DC 

TmNumero-TableFichier 

MOVE.L 

A4,-(SP) 


MOVE.L 

EnregEvents+J 


evtMouse(A5),-(SP) 

PEA 

Rectanglelimite 

_DragWindow 

@2 BRA 

Eventsuivant 

Contenu 


SUBQ.L 

#Quatre / SP 

_FrontWindow 

MOVE.L 

(SP)+,D0 

MOVEA.L 

EnregEvents+evtMeta+J 


Deux(A5),A4 

CMP.L 

A4,D0 

BEQ.S 

@1 

MOVE.L 

A4,-(SP) 

_SelectWindow 

BRA.S 

@2 

@1 MOVE.L 

A4,-(SP) 

_SetPort 


PEA 

EnregEvents+J 


EvtMouse(A5) 

_GlobalToLocal 

SUBQ.L 

#Deux,SP 

MOVE.L 

EnregEvents+J 


EvtMouse(A5),-(SP) 

MOVE.L 

A4, -(SP) 

PEA 

HandleControle(A5) 

_FindControl 

TST 

(SP)+ 

BEQ.S 

@2 

SUBQ.L 

#Deux,SP 

MOVE.L 

HandleControle(A5),-(SP) 

MOVE.L 

EnregEvents+J 


EvtMouse(A5),-(SP) 

CLR.L 

-(SP) 

_TrackControl 

TST 

(SP)+ 

BEQ.S 

@2 

SUBQ.L 

#Quatre,SP 

MOVE.L 

HandleControle(A5),-(SP) 

_GetCRefCon 

BSR 

Boutons 

@2 BRA 

Eventsuivant 

TraitPomme 


CMPI 

#mAPropos,D0 

BEQ.S 

TraiteAPropos 

MOVE.L 

HandleMPomme(A5),-(SP) 

MOVE 

D0,-(SP) 

PEA 

NomAccessoire(A5) 

_GetItem 


SUBQ.L 

#Deux,SP 

PEA 

NomAccessoire(A5) 

_OpenDeskAcc 

ADDQ 

#Deux,SP 

BRA 

FinMenu 

TraiteAPropos 


CLR.L 

-(SP) 

MOVE 

#DialogAPropos,-(SP) 

PEA 

Dialogue(A5) 

MOVE.L 

#-l,-(SP) 

_GetNewDialog 

MOVE.L 

(SP),-(SP) 

_SetPort 


Attente 


CLR.L 

-(SP) 

PEA 

Article(A5) 

_ModalDialog 

_CIoseDialog 

SUBQ.L 

#Quatre,SP 

_FrontWindow 

MOVE.L 

(SP)+,A4 

CMPI 

#userKind,J 


windowKind(A4) 

BNE.S 

@1 

MOVE.L 

A4,-(SP) 

MOVE.L 

(SP),-(SP) 


.SelectWindow I 
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SetPort 


@1 BRA 

FinMenu 

TraitEdition 

BSR. S 

VersSysteme 

BRA 

FinMenu 

VersSysteme 

MOVE 

D0,D7 

CLR 

-(SP) 

MOVE 

D0,-(SP) 

SUBQ 

_SysEdit 

#Un,(SP) 

MOVE.B 

RTS 

(SP)+,D1 

TmNouveau 

MOVE.L 

#$640064,-(SP) 

PEA 

Prompt 

PEA 

NomDefaut 

CLR.L 

-(SP) 

PEA 

ReponseGetFileJ 

Destination(A5) 

MOVE 

_Pack3 

#SFPutFile,-(SP) 

TST 

ReponseGetFileJ 

Destination+rGood(A5) 

BEQ 

FinMenu 

TST.B 

DrMenuFichier(A5) 

BEQ.S 

@1 

LEA 

_Close 

TamponlOj 

Destina tion(A5),A0 

BSR 

InfoFichier 

@1 LEA 

TamponlOj 

Destination(A5),A0 

LEA 

ReponseGetFileDestJ 

ination+rName(A5),Al 

MOVE.L 

Al / ioFileName(AO) 

MOVE 

_Create 

ReponseGetFileDestJ 

ination+rVolume(A5),J 

ioVRefNum(AO) 

BEQ.S 

@2 

CMPI 

#-48,D0 

BEQ.S 

@2 

@3 CMPI 

#-33,D0 

BNE.S 

@4 

MOVE 

#2,-(SP) 

BSR 

Erreur 

BRA. S 

@5 

@4 CMPI 

#-34,D0 

BNE.S 

@6 

MOVE 

#3,-(SP) 

BSR 

Erreur 

BRA.S 

@5 

@6 MOVE 

#1,-(SP) 

BSR 

Erreur 

@5 MOVE.L 

PointeurFenetre(A5),-(SP) 

PEA 

Titre 

_SetWTitle 

MOVE.L 

HandleMFichier(A5),J 

-(SP) 

MOVE 

#mFermer,-(SP) 

_DisableItem 

SF 

DrMenuFichier(A5) 

BSR 

ChangeCurseur 

BRA 

FinMenu 

@2 LEA 

TamponlOj 

Destination(A5),A0 

LEA 

ReponseGetFileDestJ 

ination+rName(A5),Al 

MOVE.L 

Al / ioFileName(AO) 

CLR.L 

ioOwnBuf(AO) 

MOVE.B 

#fsWrPerm,ioPermssn(AO) 

MOVE 

_Open 

ReponseGetFileJ 

Destination+rVolumeJ 

(A5),ioVRefNum(A0) 


BNE.S 

@3 

MOVE.L 

PointeurFenetre(A5),-(SP) 

PEA 

ReponseGetFileDestJ 


ination+rName(A5) 

_SetWTitle 

MOVEQ 

#0,D0 

MOVE.B 

ReponseGetFileDestJ 

ination+rName(A5),D0 

ADDQ 

#1,D0 

LEA 

ReponseGetFileDestJ 

ination+rName(A5),A0 

LEA 

Nom Fichier (A5), Al 

_BlockMove 

MOVE 

ReponseGetFileJ 

Destination+rVolumeJ 

(A5),Volume(A5) 

ST 

DrMenuFichier(A5) 

BSR 

ChangeCurseur 

MOVE.L 

HandleMFichier(A5),J 

-(SP) 

MOVE 

#mFermer,-(SP) 

_EnableItem 

BRA 

FinMenu 

TmFermer 

SUBQ.L 

#Quatre,SP 

_FrontWindow 

MOVEA.L 

(SP)+,A4 

CMPA.L 

PointeurFenetre(A5),A4 

BEQ.S 

@1 

MOVE 

windowKind(A4),-(SP) 

_CloseDeskAcc 

BRA 

FinMenu 

@1 BSR 

FermeDestination 

BRA 

FinMenu 

OuvertureF 

SUBQ.L 

#Quatre,SP 

CLR.L 

-(SP) 

PEA 

RectFenetre 

PEA 

Titre 

MOVE.B 

#Un,-(SP) 

MOVE 

#documentProc,-(SP) 

CLR.L 

-(SP) 

CLR 

-(SP) 

MOVEQ 

#Un,D0 

MOVE.L 

D0,-(SP) 

_NewWindow 

MOVEA.L 

_SetPort 

(SP),A4 

MOVE 

_TextFont 

#sysFont,-(SP) 

MOVE 

_TextSize 

#12,-(SP) 

MOVE.L 

RTS 

A4,PointeurFenetre(A5) 

OuvreSerie 

PEA 

TamponIOSort(A5) 

PEA 

Sort 

BSR 

OuvreS 

PEA 

TamponIOEntre(A5) 

PEA 

Entre 

BSR 

OuvreS 

RTS 


Ouvres 

LINK 

A6,#0 

MOVEA.L 

12(A6),A4 

MOVEA.L 

A4,A0 

MOVE.L 

8(A6),ioFileName(A0) 

CLR.B 

Open 

ioPermssn(A0) 

BNE.S 

@1 

MOVEA.L 

A4,A0 

MOVE 

#8,csCode(A0) 

MOVE 

#94+1024+16384+12288j 

csParam(AO) 


_Control,Immed 


BNE.S @1 

MOVE.L #80O,D0 

_NewPtr,clear 
BNE.S @1 

MOVE.L A0,A1 

MOVEA.L A4, AO 

MOVE #9,csCode(A0) 

MOVE.L Al,csParam(AO) 

MOVE #800,csParam+4(A0) 

_Control,Immed 
BEQ.S @2 

@1 MOVE #2,-(SP) 

BSR Erreur 

_ExitToShell 
@2 UNLK A6 

MOVE.L (SP),8(SP) 

ADDQ.L #8, SP 

RTS 

AfficheChaineN umero 

MOVE.L #$0060002E,-(SP) 

_MoveTo 

PEA ChaineNumero 

_DrawString 

RTS 

AfficheTitre 

MOVE.L #$00100044,-(SP) 

_MoveTo 

PEA ChaineNom 

_DrawString 

MOVE.L #$0020002F,-(SP) 

_MoveTo 

PEA ChainePrenom 

_DrawString 

MOVE.L #$0030002D,-(SP) 

_MoveTo 

PEA ChaineAdresse 

_DrawString 

MOVE.L #$00400045,-(SP) 

_MoveTo 

PEA ChaineVille 

_DrawString 

MOVE.L #$0050000B,-(SP) 

_MoveTo 

PEA ChaineDepartement 

_DrawString 

TST.B DrNumero(A5) 

BEQ.S @1 

BSR AfficheChaineNumero 


@1 RTS 



RectFenetre 

DC 

50,8,154,478 

Titre 

DC.B 

21,'Pas de J 



fichier ouvert', 0 


.Align 

2 

TypeTEXT 

DC.B 

’TEXT' 

TypeAPPL 

DC.B 

’APPL' 

CreateurWrite 

DC.B 

’MACA’ 

Type27 

DC.B 

’mtlF' 

Dialogue 

DS. B 

DWindLen 

NomAccessoire 

DS. B 

32 

EnregEvents 

DS. B 

20 

HandleMPomme 

DS.L 

1 

HandleMFichier 

DS.L 

1 

HandleMEdition 

DS.L 

1 

HandleMSource 

DS.L 

1 

HandleMSortie 

DS.L 

1 

Article 

DS 

1 

SauvePort 

DS.L 

1 

PointeurFenetre 

DS.L 

1 

NomFichier 

DS. B 

64 

Volume 

DS 

1 

TamponIO 

DS. B 

ioFQEISize 

TamponIOFichier27 



DS. B 

ioFQEISize 

Tarn ponlODesti nation 



DS.B 

ioFQEISize 

ReponseGetFile 

DS.B 

72 
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ReponseGetFileDestination 



DS. B 

72 

Répons eGetFileQuitter 



DS. B 

72 

Entre 

DC.B 

4,'.AIn',0 

Sort 

DC.B 

5,’.AOut' 

TamponlOEntre 

DS. B 

ioFQEISize 

TamponlOSort 

DS. B 

ioFQEISize 

TamponSortie 

DS. B 

700 

TamponEntre 

DS. B 

700 

BufferErreur 

DS 

5 

VolumeCourant 

DS 

1 

Rectanglelimite 

DC 

28,4,338,508 

RectEf f aceN u m ero 



DC 

84,0,100,500 

RectEffaceVille 

DC 

0,104,100,500 

RectEffaceNom 1 

DC 

0,104,52,500 

RectEffaceNom2 

DC 

84,104,100,500 

HandleControle 

DS.L 

1 

PointeurTampon 

DS.L 

1 

CompteurTiming 

DS.L 

1 

NumeroCurseur 

DS 

1 

C_Nom 

DS. B 

128 

C_Prenom 

DS. B 

128 

C Adresse 

DS. B 

128 

C_Ville 

DS. B 

64 

C_Departement 

DS. B 

64 

CNumero 

DS. B 

32 

Copie_Affichage 

DS. B 

544 

DrMenuFichier 

DS. B 

1 

DrMenuEdition 

DS. B 

1 

DrMenuMode 

DS. B 

1 

DrLPTIValide 

DS. B 

1 

DrMinitel 

DS. B 

1 

DrComl 

DS. B 

1 

DrNumero 

DS. B 

1 

DrDepart 

DS. B 

1 

DrCouleur 

DS. B 

1 

DrAttente_Affichage_Ville 


DS. B 

1 

DrRepere 

DS. B 

1 

Dr_Attente_Ville 



DS. B 

1 

DrNumero_en_cours 



DS. B 

1 

DrLigne 

DS. B 

1 

DrColonne 

DS. B 

1 

Dr_Attente_Nom DS. B 

1 

Dr_Attente_Departement 


DS. B 

1 


Dr Attente Prenom 

DS. B 1 

Dr_Attente_Nom_Suite 

DS. B 1 

Dr Attente Adresse 



DS. B 

1 

Dr Affichage 

DS. B 

1 

DrFinFichier 

DS. B 

1 

DrErreur 

DS. B 

1 

ChaineNom 

DC.B 

5,'Nom 

ChainePrenom 

DC.B 

8,'Prénom :',0 

ChaineAdresse 

DC.B 

9,’ Adresse 

ChaineVille 

DC.B 

7,'Ville 

ChaineDepartement 

13,J 


DC.B 

'Département 

ChaineNumero 

DC.B 

8,'Numéro :',0 

Prompt 

DC.B 

18,'Enregistrer / 
sous :',0 

NomDefaut 

DC.B 

10, 'Sans titre',0 

Tablel 

DC.B 

$23,'£' 


DC.B 

$24,'$' 


DC.B 

$26,'#' 


DC.B 

$27,'§' 


DC.B 

$2C,'<’ 


DC.B 

$2D,' A ' 


DC.B 

$2E,’>' 


DC.B 

$2F,'v' 


DC.B 

$30,'°' 


Table_Gra 

DC.B $31,’±' 

DC.B $38,'+' 

DC.B $3C,y 

DC.B $3D,7’ 

DC.B $3E,7’ 

DC.B $6A,'Œ' 

DC.B $7A,'œ' 

DC.B $8A,'Ë' 

DC.B ’aàeèuù’ 

Table_Cir 

DC.B 'aâeêiîoôuû' 

Table_Tre 

DC.B ’aâeëiïoouü' 

Curseurl DC.L 

.Align 2 

$07C01930,$21 084104 

DC.L 

$410481 02,$8102FFFE 

DC.L 

$81028102,$41044104 

DC.L 

$21081930,$07c00000 

DC.L 

0,0,0,0,0,0,0,0 

DC 

7,7 

Curseur2 DC.L 

S07C01830, $20484044 

DC.L 

$4084B082,$8D028382 

DC.L 

$8162821 A,$ 42044404 

DC.L 

$24081 830,$07C00000 

DC.L 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

DC 

7,7 

Curseur3 DC.L 

$07C01830,$20085014 

DC.L 

$48248442,$828281 02 

DC.L 

$82828442,$48245014 

DC.L 

$20081 830,$07COOOOO 

DC.L 

0 , 0 , 0 , 0 , 0 , 0 , 0,0 

DC 

7,7 

Curseur4 DC.L 

$07C01 830,$24084404 

DC.L 

$4204821 A,$81628382 

DC.L 

$8D02B082,$40844044 

DC.L 

$20481830,$07C00000 

DC.L 

0,0,0,0,0,0,0,0 

DC 

7,7 

Curseurlbis DC.L 

$07C01 FF0,$3FF87FFC 

DC.L 

$7FFCFFFE,$C006C006 

DC.L 

$C006FFFE,$7FFC7FFC 

DC.L 

$3FF81 FFO,$07COOOOO 

DC.L 

Î07C01 FF0,$3FF87FFC 

DC.L 

$7FFCFFFE,$FFFEFFFE 

DC.L 

$FFFEFFFE,$7FFC7FFC 

DC.L 

$3FF81 FF0,$07C00000 

DC 

7,7 

Curseur2bis DC.L 

$07C01 FF0,$3FF87FFC 

DC.L 

$7FFCFFFE,$FFFE8002 

DC.L 

$FFFEFFFE,$7FFC7FFC 

DC.L 

$3FF81 FF0,$07C00000 

DC.L 

$07C01 FF0,$3FF87FFC 

DC.L 

$7FFCFFFE,$FFFEFFFE 

DC.L 

$FFFEFFFE,$7FFC7FFC 

DC.L 

$3FF81 FF0,$07C00000 

DC 

7,7 


Source 'T_Fom's/2.Asm' 

InfoFichier 



LEA 

TamponlOj 

Destina tion(A5), A0 


LEA 

NomFichier(A5),Al 


MOVE.L 

Al,ioFileName(A0) 


MOVE 

Volume(A5),J 

ioVRefNum(AO) 


CLR.B 

ioFileType(AO) 


CLR 

ioFDirlndex(AO) 


_GetFileInfo 


BEQ.S 

@1 

@2 

MOVE 

#1,-(SP) 


BSR 

Erreur 


RTS 


@1 

LEA 

TamponlOj 

Destination(A5),A0 


MOVE.L 

#'TEXT’,J 

ioFlUsrWds+fdType(A0) 


MOVE.L 

#'MACA',ioFlUsrWds+J 

fdCreator(AO) 


_SetFileInfo 


BNE.S 

RTS 

@2 

FermeDestination 

SF 

DrMenuFichier(A5) 

BSR 

ChangeCurseur 

LEA 

TamponlOj 

Destination(A5),A0 

_Close 

BSR 

InfoFichier 

MOVE.L 

PointeurFenetre(A5),-(SP) 

PEA 

Titre 

_SetWTitle 

MOVE.L 

HandleMFichier(A5),J 

-(SP) 

MOVE 

#mFermer,-(SP) 

_DisableItem 

RTS 


Boutons 


RTS 


Beep7 


MOVE 

#7,-(SP) 

_SysBeep 

RTS 


Erreur 


LINK 

A6,#0 

BSR 

Beep7 

CLR.L 

-(SP) 

MOVE.L 

#'STR ’,-(SP) 

MOVE 

8(A6),-(SP) 

_GetRe source 

MOVE.L 

(SP)+,A2 

MOVE.L 

_HLock 

A2,A0 

MOVE.L 

(A2),-(SP) 

CLR.L 

-(SP) 

CLR.L 

-(SP) 

CLR.L 

-(SP) 

_ParamText 

CLR 

-(SP) 

MOVE 

#128,-(SP) 

CLR.L 

-(SP) 

_StopAlert 

MOVE 

(SP)+,D0 

MOVE.L 

A2,A0 

_HUnLock 

UNLK 

A6 

MOVE.L 

(SP),Deux(SP) 

ADDQ.L 

RTS 

#Deux,SP 

TesteEntree 


LEA 

TamponIOEntre(A5),AO 

MOVE 

#2,csCode(A0) 

_Status / Immed 

TST.L 

RTS 

csParam(AO) 

ValideMenus 


SUBQ.L 

#4,SP 

_FrontWindow 

MOVEA.L 

(SP)+,A4 

MOVEQ 

#0,D5 

CMP 

#UserKind,J 

windowKind(A4) 

BNE.S 

FenetreAccessoire 

TST.B 

DrMenuFichier(A5) 

BNE.S 

©1 

MOVE.L 

HandleMFichier(A5),J 

-(SP) 

MOVE 

#mFermer,-(SP) 


_DisableItem 

@1 MOVE.L HandleMFichier(A5),J 
-(SP) 

MOVE #mNouveau,-(SP) 


J 
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_EnableItem 

MOVE.L HandleMEdition(A5)J 
-(SP) 

CLR -(SP) 

_DisableItem 

_DrawMenuBar 

RTS 

FenetreAccessoire 

TST.B DrMenuFichier(A5) 

BNE.S @1 

MOVE.L HandleMFichier(A5),J 
-(SP) 

MOVE #mFermer,-(SP) 

_EnabIeIlem 

@1 MOVE.L HandleMEdition(A5)J 
-(SP) 

CLR -(SP) 

_EnableItem 

_DrawMenuBar 

RTS 

LireCaractere 


TST.B 

DrMinitel(A5) 

BNE.S 

@1 

LEA 

TamponlOj 


Fichier27(A5),A0 

MOVE.L 

#U n,ioReqCount(A0) 

LEA 

scratch8,A3 

MOVE.L 

A3,ioBuffer(A0) 

MOVE 

# fsAtMark,ioPosMode(AO) 

CLR.L 

ioPosOffset(AO) 

_Read 


BEQ.S 

@2 

CMPI 

#-39,D0 

BEQ.S 

@3 

MOVE 

#1,-(SP) 

BSR 

Erreur 

@3 ST 

DrFinFichier(A5) 

RTS 


@1 LEA 

TamponIOEntre(A5),A0 

MOVE.L 

#U n,ioReqCount( AO) 

LEA 

scratch8,A3 

MOVE.L 

A3,ioBuffer(A0) 

MOVE 

#fsFromStart,J 


ioPosMode(AO) 

CLR.L 

ioPosOffset(AO) 

_Read 


©2 MOVE.B 

(A3),D5 

ANDI 

#$007F,D5 

RTS 


Place_Caractere 

LINK 

A6,#0 

MOVE.L 

8(A6),A0 

ADDQ.B 

#1,(A0) 

MOVE.B 

(A0),D0 

EXT 

DO 

MOVE.B 

D5,0(A0,D0) 

UNLK 

A6 

MOVE.L 

(SP),4(SP) 

ADDQ.L 

#4,SP 

RTS 


Enregistre 


TST.B 

DrMenuFichier(A5) 

BEQ 

@2 

LEA 

C_Nom(A5),A0 

LEA 

Copie_Affichage(A5),Al 

MOVE.L 

#544,D0 

BlockMove 

MOVE.B 

#’»',Scratch8 

PEA 

Scratch8 

MOVEQ 

#1,D0 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr Erreur(A5) 

BNE 

@2 

BSR 

Ecrit CR 




TST.B 

Dr Erreur(A5) 

BNE 

@2 

MOVE.B 

C_Nom(A5),D0 

EXT 

DO 

EXT.L 

DO 

PEA 

C Nom+l(A5) 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr_Erreur(A5) 

BNE 

@2 

BSR 

EcritCR 

TST.B 

Dr Erreur(A5) 

BNE 

@2 

TST.B 

C_Prenom(A5) 

BEQ.S 

@1 

MOVE.B 

C Prénom (A5),D0 

EXT 

DO 

EXT.L 

DO 

PEA 

C Prenom+l(A5) 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr Erreur(A5) 

BNE.S 

@2 

@1 BSR 

Ecrit_CR 

TST.B 

Dr_Erreur(A5) 

BNE.S 

@2 

MOVE.B 

C_Adresse(A5),D0 

EXT 

DO 

EXT.L 

DO 

PEA 

C Adresse+1(A5) 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr_Erreur(A5) 

BNE.S 

@2 

BSR 

Ecrit_CR 

TST.B 

Dr Erreur(A5) 

BNE.S 

@2 

MOVE.B 

C Ville(A5),D0 

EXT 

DO 

EXT.L 

DO 

PEA 

C Ville+1(A5) 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr Erreur(A5) 

BNE.S 

@2 

BSR 

Ecrit_CR 

TST.B 

Dr Erreur(A5) 

BNE.S 

@2 

TST.B 

DrNumero(A5) 

BEQ.S 

@2 

MOVE.B 

C Numero(A5),D0 

EXT 

DO 

EXT.L 

DO 

PEA 

C Numero+l(A5) 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

TST.B 

Dr Erreur(A5) 

BNE.S 

@2 

BSR 

Ecrit_CR 

@2 BSR 

Zero_Chaines_Nom 

RTS 


Ecrit CR 


MOVE.B 

#13,Scratch8 

PEA 

Scratch8 

MOVEQ 

#1,D0 

MOVE.L 

D0,-(SP) 

BSR 

Ecrit 

RTS 


Ecrit 


LINK 

A6,#0 

LEA 

TamponlOj 


Destina tion(A5), AO 

MOVE.L 

8(A6),ioReqCount(A0) 

MOVE.L 

12(A6),ioBuffer(A0) 

MOVE 

#fsAtMark,ioPosMode(AO) 

CLR.L 

ioPosOffset(AO) 

_Write 




BEQ.S 

@1 


CMPI 

#-33,D0 


BNE.S 

©2 


MOVE 

#2,-(SP) 


BSR 

Erreur 

@5 

ST 

Dr Erreur(A5) 


BRA.S 

@3 

©2 

CMPI 

#-34,D0 


BNE.S 

@4 


MOVE 

#3,-(SP) 


BSR 

Erreur 


BRA.S 

@5 

@4 

MOVE 

#1,-(SP) 


BSR 

Erreur 


BRA.S 

@5 

@1 

SF 

Dr_Erreur(A5) 

@3 

UNLK 

A6 


MOVE.L 

(SP),8(SP) 


ADDQ.L 

#8,SP 


RTS 


Zero_Chaines_ 

Nom 


SF 

C_Nom(A5) 


SF 

C_Prenom(A5) 


SF 

C_Adresse(A5) 


SF 

C_Numero(A5) 


RTS 


Zero_Chaines 

_Ville 


SF 

C_Ville(A5) 


SF 

C_Departement(A5) 


RTS 



Affichage_Ville 


PEA RectEffaceVille 

_EraseRect 


MOVE.L 

#$0040006D,-(SP) 

_MoveTo 


PEA 

C_Ville(A5) 

_DrawString 

MOVE.L 

#$0050006D,-(SP) 

MoveTo 


PEA 

C_Departement(A5) 

_DrawString 

LEA 

C_Ville(A5),A0 

LEA 

Copie Affichage+J 


384(A5),A1 

MOVE.L 

#128,D0 

BlockMove 

SF 

Copie_Affichage(A5) 

SF 

Copie_Affichage+128(A5) 

SF 

Copie_Affichage+256(A5) 

SF 

Copie_Affichage+512(A5) 

RTS 


Affiche Tous 


MOVEQ 

#0,D1 

MOVE.B 

C Nom(A5),Dl 

EXT 

DI 

ADD 

D1,D0 

MOVE.B 

C Prenom(A5),Dl 

EXT 

DI 

ADD 

D1,D0 

MOVE.B 

C Adresse(A5),Dl 

EXT 

DI 

ADD 

D1,D0 

MOVE.B 

C Numero(A5),Dl 

EXT 

DI 

ADD 

D1,D0 

BNE.S 

@3 

SF 

Dr_Erreur(A5) 

BRA.S 

@2 

©3 TST.B 

DrAffichage(A5) 

BEQ.S 

@4 

SF 

Dr Erreur(A5) 

BRA.S 

@2 

@4 ST 

DrAffichage(A5) 

PEA 

RectEffaceNoml 


.EraseRect 


48 


Pom's n° 30 



MOVE.L 

#$0010006D,-(SP) 


Suite(A5) 

TmPoms27 


_MoveTo 


ST 

Dr_Attente_Adresse(A5) 

MOVE.L 

#$640064,-(SP) 

PEA 

C_Nom(A5) 

SF 

C_Adresse(A5) 

CLR.L 

-(SP) 

_DrawString 

RTS 


PEA 

FiltreFichiers 

MOVE.L 

#$00200 06D, -(SP) 



MOVE 

#1,-(SP) 

_MoveTo 


Adresse Fin 


PEA 

Type27 

PEA 

C_Prenom(A5) 

TST.B 

Dr_Attente_Adresse(A5) 

CLR.L 

-(SP) 

_DrawString 

BNE.S 

@1 

PEA 

ReponseGetFile(A5) 

MOVE.L 

#$0030006D,-(SP) 

@2 RTS 


MOVE 

#SFGetFile,-(SP) 

_MoveTo 


@1 CMPI.B 

#$42,DrCouleur(A5) 

_Pack3 

PEA 

C_Adresse(A5) 

BNE.S 

@2 

BSR 

AfficheTi tre 

_DrawString 

SF 

Dr_Attente_Adresse(A5) 

BSR 

MiseJourZones 

TST.B 

DrNumero(A5) 

RTS 


TST 

ReponseGetFile+J 

BNE.S 

@1 




rGood(A5) 

BSR 

Enregistre 

MiseJourZones 


BEQ.S 

FinMenu 

@2 RTS 


MOVE.L 

#$00400 06D, -(SP) 

LEA 

TamponIOFichier27(A5),J 

@1 PEA 

RectEffaceNom2 

_MoveTo 



A0 

_EraseRect 

PEA 

Copie_Affichage+384(A5) 

LEA 

ReponseGetFile+J 

MOVE.L 

#$0060006D,-(SP) 

_DrawString 


rName(A5),Al 

_MoveTo 


MOVE.L 

#$00 50006 D,-(SP) 

MOVE.L 

Al,ioFileName(A0) 

PEA 

C_Numero(A5) 

_MoveTo 


MOVE 

ReponseGetFile+rVolumeJ 

_DrawStnng 

PEA 

Copie_Affichage+448(A5) 


(A5),ioVRefN um ( A0) 

BSR 

Enregistre 

_DrawString 

CLR.L 

ioOwnBuf(AO) 

RTS 


MOVE.L 

#$0010006D,-(SP) 

MOVE.B 

#fsRdPerm,ioPermssn(A0) 



_MoveTo 


_Open 

ViIIe_Departement 

PEA 

Copie_Affichage(A5) 

BEQ.S 

@1 

TST.B 

Dr_Attente_Ville(A5) 

_DrawString 

MOVE 

#1,-(SP) 

BNE.S 

@1 

MOVE.L 

#$0020006D,-(SP) 

BSR 

Erreur 

@2 RTS 


_MoveTo 


BRA 

FinMenu 

@1 CMPI.B 

#$42,DrCouIeur(A5) 

PEA 

Copie_Affichage+128(A5) 

@1 SF 

DrFinFichier(A5) 

BNE.S 

@2 

_DrawString 

SF 

DrMini tel(A5) 

CMPI.B 

#l,DrLigne(A5) 

MOVE.L 

#$0030006 D,-(SP) 



BEQ.S 

@2 

_MoveTo 


Boucle27 


SF 

Dr_Attente_Ville(A5) 

PEA 

Copie_Affichage+256(A5) 

BSR 

NiveauO 

ST 

DrAttenteJ 

_DrawString 

TST.B 

DrFinFichier(A5) 


Departement(A5) 

TST.B 

DrNumero(A5) 

BEQ.S 

Boucle27 

RTS 


BNE.S 

@1 

LEA 

TamponIOFichier27(A5)J 



RTS 



A0 

Ville Ville 


@1 MOVE.L 

#$0060006D,-(SP) 

_Close 


TST.B 

Dr_Attente_VilIe(A5) 

_MoveTo 


ST 

DrMini tel(A5) 

BNE.S 

@1 

PEA 

Copie_Affichage+512(A5) 

BRA 

FinMenu 

@2 RTS 


_DrawString 



@1 CMPI.B 

#$47,DrCouleur(A5) 

RTS 


TmQuitter 


BNE.S 

@2 



BSR 

FermeSerie 

SF 

RTS 

C_Ville(A5) 

Source 'T_ 

Pom's/3.Asm' 

MOVE 

RTS 

#-l,D0 

Departement_Ligne 

TST.B Dr_Attente_J 

Departement(A5) 

BNE.S @1 

ÜTC 

TraitSource 

ADD 

MOVE 

JMP 

TableSource 

D0, D0 

TableSource(D0),D0 

T ableSou rce(DO) 

TmApplications 

MOVE #80,-(SP) 

MOVE (SP),-(SP) 

CLR.L -(SP) 

IX 1 J 

@1 SF 

ST 

Dr_Attente_J 

Departement(A5) 

DrAttente Affichage J 

DC 

DC 

DC 

FinMenu-TableSource 

TmPoms27-TableSource 

TmMinitel-TableSource 

CLR.L 

MOVE 

PEA 

CLR.L 

-(SP) 

#Un,-(SP) 

TypeAPPL 

-(SP) 

RTS 

Ville(A5) 

TraitSortie 


PEA 

ReponseGetFileJ 


ADD 

D0,D0 

MOVE 

_Pack3 

TST 

Quitter(A5) 

Nom Prénom 
TST.B 

Dr_Attente_Nom(A5) 

MOVE 

JMP 

TableSortie 

TableSortie(D0),D0 

TableSortie(DO) 

#SFGetFile,-(SP) 

ReponseGetFileQui tter+ J 

BEQ.S 

@1 

DC 

FinMenu-TableSortie 


rGood(A5) 

CMPI.B 

#6,DrColonne(A5) 

DC 

TmQuitter-TableSortie 

BEQ 

FinMenu 

BMI. S 
CMPI.B 

@1 

#31,DrColonne(A5) 

DC 

TmAppIications-| 

TableSortie 

BSR 

@3 SUBQ.L 

FermeSerie 

#Quatre,SP 

BGE.S 

@1 


_FrontWindow 

SF 

Dr_Attente_Nom(A5) 



TST.L 

(SP) 

ST 

Dr_Attente_Prenom(A5) 

TmMinitel 


BNE.S 

@1 

SF 

DrAffichage(A5) 

TST.B 

DrMinitel(A5) 

ADDQ 

#Quatre,SP 

SF 

C_Prenom(A5) 

BNE.S 

@1 

BRA.S 

@2 

@1 RTS 


ST 

DrMinitel(A5) 

@1 _HideWindow 



MOVE.L 

HandleMSource(A5),-(SP) 

BRA.S 

@3 

SuiteNomAdresse 

MOVE 

#mMinitel,-(SP) 

@2 LEA 

TamponIO(A5),AO 

TST.B 

Dr_Attente_Nom_J 

MOVE.B 

#255,-(SP) 

MOVE 

ReponseGetFileQuitterJ 


Suite(A5) 

_CheckItem 


+rVolume(A5),J 

BNE.S 

@1 

MOVE.L 

HandleMSource(A5),-(SP) 


ioVDrvNum(AO) 

@2 RTS 


MOVE 

#mPoms27,-(SP) 

_SetVol 


@1 CMPI.B 

#$42,DrCouIeur(A5) 

CLR 

-(SP) 

MOVEQ.L 

#Quatre,D0 

BNE.S 

@2 

_CheckItem 

MOVE.L 

AppParmHandle,A0 

SF 

Dr_Attente_Nom_J 

@1 BRA 

FinMenu 

_.SetHandleSize 


J 


Pom's n° 30 


49 



MOVE.L 

AppParmHandIe,A0 

MOVE.L 

(A0),AO 

CLR.L 

(A0) 

CLR 

-(SP) 

PEA 

ReponseGetFileQuitter+i 

rName(A5) 

MOVE.L 

SP,A0 

_Launch 

FermeSerie 

TST.B 

DrMenuFichier(A5) 

BEQ.S 

@1 

LEA 

TamponlODestinationJ 

(A5),A0 

_Close 

BSR 

InfoFichier 

@1 LEA 

TamponIOEntre(A5),AO 

_Close 

LEA 

TamponIOSort(A5),AO 

_Close 

RTS 

TmNumero 

MOVE.L 

HandleMFichier(A5),i 

-(SP) 

MOVE 

#mNumero,-(SP) 

TST.B 

DrNumero(A5) 

SEQ 

DrNumero(A5) 

MOVE.B 

DrN umero(A5),-(SP) 

_CheckItem 

TST.B 

DrNumero(A5) 

BEQ.S 

@1 

BSR 

AfficheChaineNumero 

@2 BRA 

FinMenu 

@1 PEA 

RectEffaceNumero 

_EraseRect 

BRA. S 

@2 

FiltreFichiers 

LINK 

A6,#0 

MOVEM.L 

D0-D2/ A0-A2,-(SP) 

MOVE.L 

8(A6),A0 

TST.B 

ioFlAttrib(AO) 

BMI. S 

FiltreNon 

MOVE 

ioFlUsrWds+fdFlags(A0), 

D0 

ANDI 

#$5000,DO 

BNE.S 

FiltreNon 

CLR 

12(A6) 

BRA. S 

FiltreOK 

FiltreNon 

MOVE 

#$FFFF,12(A6) 

FiltreOK 

MOVEM.L 

(SP)+,D0-D2/A0-A2 

UNLK 

A6 

MOVE.L 

(SP),4(SP) 

ADDQ.L 

#4,SP 

RTS 

CurseurAttente 

SUBQ.L 

#4,SP 

_TickCount 

MOVE.L 

CompteurTiming(A5),D0 

ADDQ.L 

#2,D0 

CMP.L 

(SP)+,D0 

BMI. S 

ChangeCurseur 

RTS 

ChangeCu rseur 

TST.B 

DrMenuFichier(A5) 

BEQ.S 

ChangeCurseurBis 

MOVE 

#68,D0 

MOVE 

Numéro Curseur(A5),D4 

MULU 

D4,D0 

LEA 

Curseur 1,A2 

PEA 

0(A2,D0) 

ChangeCurseur2 

_SetCursor 

SUBQ.L 

#4,SP 


I _TickCount 


MOVE.L (SP)+,J 

CompteurTiming(A5) 
ADDQ #l,Numero_Curseur(A5) 

ANDI #$0003,/ 

Numero_Curseur(A5) 

RTS 

ChangeCurseurBis 


MOVE 
ANDI 
BEQ.S 
PEA 
BRA.S 
@1 PEA 
BRA.S 

Numero_Curseur(A5),D4 

#1,D4 

@1 

Curseurlbis 

ChangeCurseur2 

Curseur2bis 

ChangeCurseur2 

Source 'T_ 

_Pom's/4.Asm' 

NiveauO 

BSR 

CurseurAttente 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@2 RTS 

@1 CMPI.B 

#$C,D5 

BEQ.S 

Changement_Page 

TST.B 

DrDepart(AS) 

BEQ.S 

@2 

CMPI.B 

#1,D5 

BEQ.S 

Reperel 

CMPI.B 

#$1B,D5 

BEQ.S 

Changement_Couleur 

CMPI.B 

#$1F,D5 

BEQ 

Changement_Position 

CMPI.B 

#$10, D5 

BEQ 

Numero_Telephone 

CMPI.B 

#$60,D5 

BEQ 

Fin_Ensemble60 

CMPI.B 

#$18,D5 

BEQ 

Fin_Ensemble_18 

CMPI.B 

#$16,D5 

BEQ 

Caractère ALC 

CMPI.B 

#32,D5 

BMI.S 

@2 

BRA 

Dispatch 

Repere_l 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@2 RTS 

@1 MOVE.B 

D5,D0 

ANDI. B 

#$0F,D0 

BEQ.S 

@2 

CMPI.B 

#9,D0 

BGT 

@2 

BSR 

LireCaractere 

TST.B 

D5 

BEQ.S 

@2 

CMPI.B 

#4,D5 

BNE.S 

@2 

ST 

DrRepere(A5) 

RTS 

Changement_Page 

BSR 

Zero_Chaines_Ville 

ST 

DrDepart(A5) 

ST 

Dr_Attente_Ville(A5) 

SF 

Dr_Attente_Nom(A5) 

RTS 


Changement_Couleur 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@3 RTS 

@1 CMPI.B 

#$36,D5 

BNE.S 

@2 


BSR 

LireCaractere 

BRA.S 

@3 

@2 CMPI.B 

#$42,D5 

BEQ.S 

@4 

CMPI.B 

#$47,D5 

BNE.S 

@5 

@4 MOVE.B 

D5,DrCouleur(A5) 

BSR 

VilleDepartement 

BSR 

VilleJVille 

BSR 

SuiteNom_Adresse 

RTS 


@5 BSR 

Departement_Ligne 

RTS 


Changement_Position 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@2 RTS 


@1 MOVE.B 

D5,DrLigne(A5) 

ANDI. B 

# %001 1 1 1 1 l,DrLigne(A5) 

BSR 

LireCaractere 

TST.B 

D5 

BEQ.S 

@2 

MOVE.B 

D5,DrColonne(A5) 

ANDI. B 

#%00111111,J 


DrColonne(A5) 

BSR 

Nom_Prenom 

BSR 

Adresse_Fin 

RTS 


Numero_Telephone 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@2 RTS 


@1 CMPI.B 

#2,D5 

BNE.S 

@3 

SF 

Dr_Attente_Prenom(A5) 

ST 

DrNumero_en_cours(A5) 

SF 

C_Numero(A5) 

BRA.S 

@2 

@3 CMPI.B 

#3,D5 

BNE.S 

@2 

SF 

DrNumero_en_cours(A5) 

ST 

Dr_Attente_Nom_j 


Suite(A5) 

LEA 

C Nom(A5),A0 

MOVE.B 

(A0),D0 

EXT 

D0 

CMPI.B 

#' ’,0(A0,D0) 

BEQ.S 

@4 

CMPI.B 

#127,D0 

BEQ.S 

@4 

ADDQ.B 

#1,(A0) 

MOVE.B 

#• ’,1(A0,D0) 

@4 RTS 


Fin Ensemble 

_60 

BSR 

LireCaractere 

TST.B 

D5 

BNE.S 

@1 

@2 RTS 


@1 CMPI.B 

#$12,D5 

BNE.S 

@2 

BSR 

LireCaractere 

TST.B 

DrAttente Affichage / 


Ville(A5) 

BEQ.S 

@3 

CMPI.B 

#10,DrLigne(A5) 

BGE.S 

@2 

TST.B 

C Ville(A5) 

BEQ.S 

@2 

TST.B 

C Departement(A5) 

BEQ.S 

@2 

BSR 

Affichage_Ville 

SF 

DrAttente Affichage J 


Ville(A5) 

BRA.S 

@4 


50 


Pom's n° 30 



@3 TST.B 

Dr Attente Nom(A5) 

BNE.S 

@2 

BSR 

AfficheTous 

TST.B 

DrMenuFichier(A5) 

BEQ.S 

@4 

TST.B 

Dr_Erreur(A5) 

BEQ.S 

@4 

BSR 

FermeDesti nation 

@4 ST 

Dr_At tente_N om (A5) 

SF 

C_Nom(A5) 

RTS 


Fin Ensemble 

.18 

TST.B 

Dr_At tente_N om (A5) 

BNE.S 

@1 

BSR 

Affiche_Tous 

TST.B 

DrMenuFichier(A5) 

BEQ.S 

@2 

TST.B 

Dr Erreur(A5) 

BEQ.S 

@2 

BSR 

FermeDestination 

@2 ST 

Dr_Attente_Nom(A5) 

SF 

C_Nom(A5) 

@1 RTS 


Caractere_ALC 

BSR 

LireCaractere 

LEA 

Tablel ,A0 

MOVEQ 

#16,D0 

@1 CMP.B 

(A0),D5 

BEQ.S 

@2 

ADDQ.L 

#2,A0 

DBRA 

D0,@1 

BRA.S 

Caractère ALC Accent 

@2 MOVE.B 

1(A0),D5 

BRA 

Dispatch 

Caractere_ALC_Accent 

CMPI.B 

#$41,DS 

BNE.S 

Caractere_ALC_Accent_2 

BSR 

LireCaractere 

LEA 

Table_Gra,A0 

MOVEQ 

#2,D0 

@1 CMP.B 

(A0),D5 

BEQ.S 

@2 

ADDQ.L 

#2,A0 

DBRA 

D0,@1 

RTS 


@2 MOVE.B 

1(A0),D5 

BRA.S 

Dispatch 

Caractere_ALC_Accent_2 

CMPI.B 

#$42,D5 

BNE.S 

Caractere_ALC_Accent_3 

BSR 

LireCaractere 

CMPI.B 

#’e',D5 

BEQ.S 

@1 

RTS 


@1 MOVE.B 

#'é’,D5 

BRA.S 

Dispatch 

Caractère ALC 

_Accent 3 

CMPI.B 

#$43,D5 

BNE.S 

Caractere_ALC_Accent_4 

BSR 

LireCaractere 

LEA 

Table Cir,A0 

MOVEQ 

#4,D0 

@1 CMP.B 

(A0),D5 

BEQ.S 

@2 

ADDQ.L 

#2, AO 

DBRA 

D0,@1 

RTS 


@2 MOVE.B 

1(A0),D5 

BRA.S 

Dispatch 

Caractère ALC 

_Accent 4 

CMPI.B 

#$48,D5 

BNE.S 

Caractere_ALC_Accent_5 

BSR 

LireCaractere 

LEA 

Table Tre,A0 

MOVEQ 

#4,D0 

@1 CMP.B 

(A0),D5 

BEQ.S 

@2 


ADDQ.L 

#2, AO 

DBRA 

D0,@1 

RTS 


@2 MOVE.B 

1(A0),D5 

BRA.S 

Dispatch 

Caractere_ALC_Accent_5 

CMPI.B 

#$4B,D5 

BEQ.S 

@2 

RTS 


@2 BSR 

LireCaractere 

CMPI.B 

#'c',D5 

BEQ.S 

@1 

RTS 


@1 MOVE.B 

#V,D5 

BRA.S 

Dispatch 

Dispatch 


CMPI.B 

#2,DrLigne(A5) 

BMI.S 

@2 

TST.B 

Dr_Attente_Ville(A5) 

BEQ.S 

R_Departement 

CMPI.B 

#5,DrColonne(A5) 

BMI.S 

@2 

CMPI.B 

#$47,DrCouleur(A5) 

BNE.S 

@2 

CMPI.B 

#63,C_Ville(A5) 

BEQ.S 

@2 

PEA 

C_Ville(A5) 

BSR 

PlaceCaractere 

@2 RTS 



R_Departement 

TST.B 

DrAttenteJ 


Departement(A5) 

BEQ.S 

R_Confirme 

CMPI.B 

#5,DrColonne(A5) 

BMI.S 

@2 

CMPI.B 

#$42 / DrCouleur(A5) 

BNE.S 

@2 

CMPI.B 

#63,C Departement(A5) 

BEQ.S 

@2 

PEA 

C_Departement(A5) 

BSR 

PlaceCaractere 

@2 RTS 


R Confirme 


TST.B 

DrAttente Affichage / 


Ville(A5) 

BEQ.S 

R_Nom 

RTS 


R Nom 


TST.B 

Dr_Attente_Nom(A5) 

BEQ.S 

R_Prenom 

CMPI.B 

#3,DrLigne(A5) 

BMI.S 

@1 

CMPI.B 

#5,DrColonne(A5) 

BMI.S 

@1 

CMPI.B 

#$47,DrCouleur(A5) 

BNE.S 

@1 

CMPI.B 

#127,C_Nom(A5) 

BEQ.S 

@1 

PEA 

C_Nom(A5) 

BSR 

Place_Caractere 

@1 RTS 


R Prénom 


TST.B 

Dr_Attente_Prenom(A5) 

BEQ.S 

R_Numero 

CMPI.B 

#3,DrLigne(A5) 

BMI.S 

@1 

CMPI.B 

#5,DrColonne(A5) 

BMI.S 

@1 

CMPI.B 

#$47,DrCouleur(A5) 

BNE.S 

@1 

CMPI.B 

# 127,C_Prenom (A5) 

BEQ.S 

@1 

PEA 

C_Prenom(A5) 

BSR 

PlaceCaractere 


@1 

RTS 


R_Numero 



TST.B 

DrNumero_en_cours(A5) 


BEQ.S 

R_Nom_Suite 


CMPI.B 

#31,C_Numero(A5) 


BEQ.S 

@1 


PEA 

C_Numero(A5) 


BSR 

PlaceCaractere 

@1 

RTS 


R_Nom_Suite 



TST.B 

Dr_Attente_Nom_J 

Suite(A5) 


BEQ.S 

RAdresse 


CMPI.B 

#4,DrLigne(A5) 


BMI.S 

@1 


CMPI.B 

SS.DrColonnefAS) 


BMI.S 

@1 


CMPI.B 

#$47,DrCouleur(A5) 


BNE.S 

@1 


CMPI.B 

#127,C_Nom(A5) 


BEQ.S 

@1 


PEA 

C_Nom(A5) 


BSR 

PlaceCaractere 

@1 

RTS 



R Adresse 


TST.B 

Dr_Attente_Adresse(A5) 

BEQ.S 

@1 

CMPI.B 

#4,DrLigne(A5) 

BMI.S 

@1 

CMPI.B 

#5,DrColonne(A5) 

BMI.S 

@1 

CMPI.B 

#$42,DrCouleur(A5) 

BNE.S 

@1 

CMPI.B 

#127,C_Adresse(A5) 

BEQ.S 

@1 

PEA 

C_Adresse(A5) 

BSR 
@1 RTS 

Place_Caractere 


Fichier 'T_Pom's.R' 

TPom's 

APPLPfAm 

Type PfAm = STR 

,0 

Pom's - Filtre abonnés Minitel - Mai 1987 

Type MENU 

,1 

\14 

A 1À propos de T_Pom’s'... 

(- 

Type MENU 

Z 

Fichier 

A 2Nouveau.../0 

(- 

Fermer/ F 
(- 

A 3Numéros 

Type MENU 

3 

Édition 

Annuler/Z 

(- 

Couper/X 

Copier/C 

Coller/V 

(- 

Effacer 
Type MENU 
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,4 

Source 

A 4Fichier Tom's 27 '... 
!\12 A 5Minitel 

Type MENU 

3 

Quitter 

A 8vers le 'FinderVQ 
A 9vers une application... /A 


"T_Pom's" utilise l'annuaire électronique 

StaticText 
92 24 108 352 

— ou un fichier créé par le programme 
'Minitel' 

StaticText 
108 24 124 352 

du numéro 27 de Pom’s — pour constituer des 


Type ALRT 

,128 (4) 

82 72 178 440 
128 
5555 

Tvpe DHL 
' ,128 (4) 


Button 
56 256 80 352 
OK 

StaticText 
16 64 48 352 
A 0 A 1 A 2 A 3 

Type STR 
,1(4) 

Erreur d'entrée/sortie. 
,2(4) 

Le catalogue est saturé. 
,3(4) 

Le volume est saturé. 


StaticText 
124 24 140 352 

fichiers d'adresses directement j 
exploitables. 

StaticText 
148 24 164 352 

Les 'sources' (MDS 68000) de la version 1.0 se 

StaticText 
164 24 180 352 

trouvent dans le numéro 30 de "Pom's". 

StaticText 
1% 24 212 296 

Pom's/Éditions MEV — 12, rue d’Anjou — 

StaticText 
212 24 228 296 

78000 Versailles — Tél. : (1) 39 51 24 43. 

Type BNDL 
,128(32) 

PfAmO 

1CN# 

0128 

FREF 

0128 


Type DLOG 
,1 (4) 

50 72 290 440 
Visible NoGoAway 
1 
0 
1 

Type DITL 
,1 (4) 

14 

StaticText 
0 0 248 368 
\20 

Iconltem 
24 24 56 56 
257 

Iconltem 
192312 228 344 
266 

StaticText 
12 72 28 352 
T_Pom's — V 1.0/Mac 

StaticText 
36 72 52352 

© 1987 Pom's/Éditions MEV 

StaticText 
52 72 68 352 

Jean-Luc Bazanegue et Christian Piard 

StaticText 
76 24 92 352 


Type FREF 
,128(32) 

APPL0 

TYPE ICN# = GNRL 

* Icône application 
,128(32) 

2 

7FFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 93FE6FC9 9000A009 97FD4FE9 
90018009 973D3CE9 907FD609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FAA349 
987D4619 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 

* 

7FFFFFFE FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
7FFFFFFE 3FFFFFFC 3FFFFFFC 3FFFFFFC 
3FFFFFFC 3FFFFFFC 3FFFFFFC 3FFFFFFC 
3FFFFFFC 3FFFFFFC 3FFFFFFC 3FFFFFFC 

TYPE ICON = GNRL 

* Icône à propos 
,257 (4) 

7FFFFFFE 80000001 À0000005 9FFFFFF9 
98000019 93FE6FC9 9000A009 97FD4FE9 
90018009 973D3CE9 907FD609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FAA349 
987D4619 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 




* Nouveau 
,258 (4) 

7FFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 90000009 93DEDBC9 9198D989 
9198D989 91985189 919C2189 91985189 
9198D989 9198D989 919ED989 90000009 
98000019 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 

* Fermer 
,259 (4) 

7FFFFFFE 80000001 9F87E1F9 A0481205 
A6499265 A0481205 BFCFF3FD 9F87E1F9 
80000001 9F87E1F9 A0481205 A6499265 
A0481205 BFCFF3FD 9F87E1F9 80000001 
9F87E1F9 A0481205 A6499265 A0481205 
BFCFF3FD 9F87E1F9 80000001 9F87E1F9 
A0481205 A6499265 A0481205 BFCFF3FD 
9F87E1F9 80000001 7FFFFFFE 00000000 

* Source Fichier 27 
,260 (4) 

0FFFFC00 08000600 09134D00 0AAAA480 
0B12A44O OA000420 OA0007FO 0833C010 
08484010 08108010 08210010 08410010 
08790010 08000010 08000010 09FC0010 
08000010 083DE010 08000010 097CF810 
08000010 083F9F10 08000010 098F8F10 
08000010 087EEF90 08000010 09F3E590 
08000010 08000010 08000010 0FFFFFF0 

* Source Minitel 
,261 (4) 

7FFFFFFE 80000001 A0000005 9FFFFFF9 
98186199 9FFFFFF9 90000009 9FFFFFF9 
904C0C29 9FFFFFF9 96318C09 9FFFFFF9 
90411849 9FFFFFF9 90000009 9FFFFFF9 
98C31919 9FFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 


* Finder 
,264 (4) 

0FFFFFF0 10000008 13FFFFC8 17FFFFE8 
1668F468 16D5EAE8 1645E2E8 16D5EAE8 
1655EAE8 17FFFFE8 17998A68 179494E8 
17949CE8 17948E68 17949E68 16949E68 
173988E8 17FFFFE8 13FFFFC8 10000008 
10000008 10000008 100001C8 1200FFC8 
10000008 10000008 10000008 0FFFFFF0 
08000010 0A000050 08000010 07FFFFE0 

* Application 
,265 (4) 

00010000 00028000 00044000 00082000 
00129000 00254800 0048A400 00904200 
01282100 02144080 040A8040 09450020 
12A28010 24514008 4828BF04 84144082 
4A2A8041 25453022 1283C814 095E7F0F 
04A23007 02510007 01288007 00906007 
00401FE7 0020021F 00100407 00080800 
00041000 00022000 00014000 00008000 

* Pom's 
,266 (4) 

00000000 00000050 00000080 00001100 
000008AA 00000155 OOOOOOAA 00001401 
00002A02 00004514 O0OOA28O 00015140 
000228AO 00051440 00028A00 00014560 
0028A2AO 00545140 008A2980 00453D7C 
00A2FFD6 1451FEAB 2A28FD45 4515FAA3 
A20AFD45 5100FAA3 2A007D46 14007AAA 
0A003D54 05001AA8 02800DDO 01000660 

INCLUDE T_Pom's.Code 
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< T c Pom ’s : 

üvCinitd, 


Christian (Fiord 

Slppte // et te 11 


Ce programme a pour objet la 
récupération des informations 
accessibles sur le Minitel par le 
11, c'est-à-dire les noms, 
numéros de téléphone et adresse 
des abonnés figurant à l'annuaire 
électronique. 

Le programme constitue sur 
disque un fichier comprenant 
l'ensemble des abonnés affichés 
par le service, fichier imprimable, 
récupérable par un traitement de 
textes ou par votre propre 
programme de mailings par 
exemple. 

Le programme ne fonctionne que 
sous ProDOS. 

Configuration 

Pour utiliser ce programme, vous 
devez disposer des éléments 
suivants : 

Vous avez un Apple ][+ : 

• une ROM pour l'affichage des 
minuscules ; 

• un Minitel, 

• une carte ‘langage’ qui accueil- 
lera ProDOS ; 

• une carte SuperSérie Apple ; 

• un câble de liaison type Apple 
lit. 

Vous avez un Apple Ile équipé ou 
non du 65C02 : 

• un Minitel ; 

• une carte SuperSérie Apple ; 

• un câble de liaison type Apple 
lit. 

Vous avez un Apple Ile : 

• un Minitel ; 

• une carte SuperSérie Apple ; 

• un câble de liaison type Apple 
Ht. 

Vous avez un Apple IIgs : 

• un Minitel, 

• un câble de liaison type Mac- 
intosh Plus (on utilise le port 
série intégré). Si vous désirez 
utiliser une carte SuperSérie 


installée dans l'un des slots, il 
faut un câble type Apple //e. 

Tous les types de Minitel 
conviennent. Le câble peut être 
réalisé d'après les schémas des 
numéro 27 et 28 de Pom’s ou 
commandé à la revue (bon de 
commande page 74). 

Le programme se charge de 
rechercher la carte S SC pour le 
port série en commençant par le 
port 7 pour finir par le 1. Une 
carte en port 2 sera donc utilisée 
même s'il en existe une également 
en port 1 (cas du // c et du IIgs). 

Mode d'emploi 

Le programme crée sur disque un 
fichier de type TEXT comprenant 
les abonnés consultés à l'aide du 
Minitel. Les différents options du 
menu sont les suivantes : 

Recevoir l'annuaire 
avec numéros de 
téléphone 

Option R : Le programme vous 
demande le nom du fichier TEXT 
à créer avant de se mettre à 
l'écoute du Minitel. 

Le nom de fichier doit respecter la 
syntaxe ProDOS (la routine de 
saisie élimine la plupart des fautes 
possibles). Il peut être de la 
forme : 

/RAM/ CHEMINEE S 78 

OU 

CHEMINEES 

Dans ce dernier cas, le préfixe par 
défaut est utilisé pour déterminer 
le volume d'accueil du fichier. 

Si le fichier existe déjà sur le 
volume, le programme refusera 
de l'écraser, ceci pour éviter les 
conséquence d'une fausse 
manœuvre. 

Dans le cas où vous désirez 
réellement remplacer un fichier 
existant appuyer sur : 


- 3§ (IIgs) ou 

- Option (IIgs) ou 

- « (//e, //c) ou 

- 0 (//e, //c) ou 

- un bouton du joystick (][+) 

lorsque vous faites le return de 
validation du nom de fichier. 
L'éventuel ancien fichier sera 
écrasé. 

Le programme affiche alors 
fichier TEXT créé. Il ne reste 
plus qu'à commencer la 
consultation sur Minitel. La 
mémoire disponible pour les 
adresses est d'environ 26000 
octets, ce qui suffit pour 3 à 400 
adresses. Le compteur affiché à 
l'écran vous indique en 
permanence la place disponible. 

À tout moment, pour libérer de la 
place en mémoire, il est possible 
de presser s ce qui provoque 
l'écriture sur le volume ; la taille 
du fichier n'est donc limité que 
par la place disponible sur le 
disque. En fin de consultation, 
presser esc ce qui sauvegarde la 
mémoire et reconduit au menu 
général. 

Au fur et à mesure de l'enregis- 
trement, les noms, adresses et 
numéros de téléphone appa- 
raissent à l'écran. 

Recevoir l'annuaire 
sans numéros de 
téléphone 

Option L : Toutes les indications 
de l'option précédente restent 
valables. Seule différence : les 
numéros de téléphone ne feront 
pas partie du fichier : c'est donc 
la solution à retenir dans la 
perspective d'un mailing. 

Imprimer un fichier 

Option I : Conçue comme 
accessoire, cette option permet 
d'imprimer un fichier TEXT sans 
devoir nécessairement charger 
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AppleWorks, Apple Writer ou 
autre. 

Un fichier d'adresses vient d'être 
créé : cette option permet 
! d'obtenir rapidement sa représen- 
tation papier, sans souci de 
présentation. 

Le programme, qui suppose 
l'imprimante connectée au port 1, 
interrompra l'impression si vous 
pressez esc. 

L'impression de fichier d'un type 
autre que TEXT sera refusée ; 
toutefois, les fichiers de textes 
AppleWorks sont admis. 

Modifier le préfixe 

Option M : C'est l'option à 
choisir pour changer le préfixe 
par défaut, préfixe qui est rappelé 
; en haut de l'écran. Par exemple : 

/UNIDISK2/POMS30/T3 

Volumes en ligne 

Option V : Option indispensable 
pour identifier les disquettes, 
disques virtuels et autres volumes 
actuellement disponibles. 

Catalogue 

Option C : Permet le listage des 
fichiers du catalogue visé par le 
préfixe par défaut. Si celui-ci est : 

/PROFILE/CLIENT 

\ seuls les fichiers du dossier 

i CLIENT apparaîtront. 

Quitter 

Option Q : Contrairement à ctrl- 
reset, cette option permet de 
quitter le programme. 

Le filtrage 

La récupération des éléments 
purement TEXT de l'annuaire 
électronique présente bien des 
difficultés du fait du caractère non 
standard de la présentation. Il 
faudra œuvrer en traitement de 
textes avant d'envisager 
l'impression d'étiquettes-adresse 
(ne serait-ce que pour ajouter les 
code postaux indisponibles dans 
la consultation). 

Pour l'identification de ce qui doit 

V__ 
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Deux pages de l'annuaire illustrant la 'variété' de la présentation 


**************************************** 

FNAC 

PARIS PARIS 1 


> 1 F.N.A.C. (Fédération 
Nationale d' Achats des 
Cadres ) 


F.N.A.C Autoradio 
(Fédérât i on 
Nationale d' Achat 
des Cadres ) 

2 -54 av Bosquet 7e ( 1 > 45 5 1 28 15 

3 - 15Ter bd Gouvion (1) 45 74 57 41 

St Cyr 17e 

4 -53 r Richard ( 1 > 43 67 38 05 

Lenoir lie 


> plus d'informations 

tapez le N° choisi:... puis > ENUOI 
page suivante > SUITE 
**************************************** 


**************************************** 
NI N I STERE 

PARIS PARIS 1 


> 1 N i n i s ter e Agr i eu I ture 


Ministère Défense 
231 bd St Germain 

( 1 > 
7e 

42 

61 

57 

31 

Ministère Justice 

13 p 1 Uendome le 

( 1 > 

42 

60 

13 

60 

Ministère Justice 






-13 pl Uendome le 

( 1) 

42 

61 

80 

22 

-meme adresse 

( 1 ) 

42 

61 

55 

85 


> plus d'informations 

tapez le N° choisi:... puis > ENUO I 
page suivante > SUITE 
**************************************** 


être un nom, une adresse ou un 
téléphone, le programme se base 
sur la couleur et la position des 
éléments mais le filtrage et la 
reconnaissance des divers 
éléments n'est pas efficace à 
100%. Les mentions du type 

futur numéro OU téléphone 
de voiture en lieu et place de 
l'adresse sont difficilement 
décelables. Le programme ne 
donnera pas un résultat 
satisfaisant lorsque plusieurs 
numéros sont affectés à un 
abonné. Selon la présentation - 
très variable - la récupération se 
fera plus ou moins bien. 

Les copies d'écran Minitel 
annexées illustrent ces variations. 

Pour une page affichée sur 
l'écran du Minitel, 600 à 1000 
caractères (texte, contrôle et 
graphisme) sont émis sur la prise 
péri-informatique. Après filtrage 
des caractères inutiles pour nous, 
il peut ne rester que 4 ou 5 
adresses de 70 caractères soit 600 
ou 700 caractères éliminés. 

Précautions, 

Remarques, 

Mailing 

Le programme, pour constituer 
des adresses cohérentes, attend 
un effacement de page toujours 
suivi de l'affichage de la ville en 
haut de l'écran. 

Il faut donc mettre le programme 


à l'écoute du Minitel avant même 
de commencer la consulation 
pour que l'Apple voit bien passer 
la ville. Sinon, rien ne sera 
enregistré. 

Dans le fichier TEXT, les 
adresses sont séparées par *** 
pour que votre programme ou 
votre traitement de texte identifie 
facilement le début et la fin. 

Pour réaliser un mailing à l'aide 
d'AppleWriter par exemple, 
remplacer les *** par des sauts 
de page par la commande : 

CTRL-B 

CTRL -F /***/. FF/AJ 

Spécifier un espace entre pages 
de 10 lignes si vos étiquettes sont 
distantes de 10 lignes : 

CTRL-P IP 10 J 

La liaison Minitel/Apple peut etre 
vérifiée de la façon suivante : 
programme prêt à enregistrer, 
presser des touches sur le clavier 
du Minitel. À chaque caractère 
reçu par l'Apple, le premier 
de la ligne 8 doit se transformer 
en un *+’ puis en un etc. 

a 


Source T. PO MS. 1 

Assembleur ProCODE 

PUT T.P0MS.2 

PUT T.POMS.3 

PUT T.POMS.4 
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Représentation d’une page de l'annuaire électronique 
(633 caractères) 


2600:11 

OC 

00 

00 

1E 

1F 

41 

45 

IB 

47 

4D 

49 

4E 

49 

53 

54 

- AE . GMINIST 

2610:45 

52 

45 

1F 

42 

45 

IB 

47 

50 

41 

52 

49 

53 

20 

IB 

42 

-ERE . BE . GPARIS .B 

2620:50 

41 

52 

49 

53 

20 

IF 

43 

41 

IB 

44 

60 

12 

67 

1F 

41 

-PARIS . CA .D' . g. A 

2630:41 

IB 

46 

2E 

12 

42 

14 

1F 

30 

34 

18 

00 

00 

00 

OA 

18 

-A. F. .B. .04 

2640:00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 


2650:00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 


2660:00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 


2610: OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 


2680:18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 


2690:00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

00 

00 

00 

OA 

18 

14 


26A0-.1F 

42 

66 

IB 

42 

20 

20 

35 

1F 

44 

43 

IB 

47 

01 

31 

04 

-.Bf.B 5.DC.G.1. 

26B0-.20 

1F 

44 

45 

IB 

47 

4D 

69 

6E 

69 

73 

74 

16 

41 

65 

72 

- . DE . GMinist .Aer 

26C0 : 65 

20 

64 

65 

20 

6C 

61 

20 

1F 

44 

5A 

IB 

47 

10 

02 

28 

-e de la .DZ.G. . ( 

26D0 : 31 

29 

20 

34 

37 

20 

30 

33 

20 

34 

39 

20 

38 

38 

10 

03 

-1) 47 03 49 88. . 

26E0 :1F 

45 

45 

IB 

47 

4A 

75 

73 

74 

69 

63 

65 

1F 

46 

45 

IB 

- .EE .G Justice .FE . 

26F0 : 42 

31 

33 

20 

20 

70 

6C 

20 

56 

65 

6E 

64 

16 

43 

6F 

6D 

-B13 pl Vend.Com 

2700:65 

20 

20 

31 

65 

1F 

47 

45 

IB 

44 

60 

12 

63 

1F 

48 

43 

-e le.GE.D' .c.HC 

2710 :1B 

47 

01 

32 

04 

20 

1F 

48 

45 

IB 

47 

4D 

69 

6E 

69 

73 

-.G. 2. .HE.GMinls 

2720:74 

16 

41 

65 

72 

65 

20 

64 

65 

20 

6C 

61 

20 

4D 

65 

72 

-t.Aere de la Mer 

2730:1F 

48 

5A 

IB 

47 

10 

02 

28 

31 

29 

20 

34 

32 

20 

37 

33 

-.HZ. G. . (1) 42 73 

2740:20 

35 

35 

20 

30 

35 

10 

03 

1F 

49 

45 

IB 

42 

33 

20 

20 

- 55 05. . .IE.B3 

2750: 70 

6C 

20 

46 

6F 

6E 

74 

65 

6E 

6F 

79 

20 

20 

37 

65 

1F 

-pl Fontenoy 7e. 

2760-.4A 

45 

IB 

44 

60 

12 

63 

1F 

4B 

43 

IB 

47 

01 

33 

04 

20 

—JE . D ' .c.KC. G. 3. 

2770:1F 

4B 

45 

IB 

47 

4D 

69 

6E 

69 

73 

74 

16 

41 

65 

72 

65 

-.KE. GMinist . Aere 

2780:20 

64 

65 

20 

6C 

61 

20 

1F 

4B 

5A 

IB 

47 

10 

02 

28 

31 

- de la . KZ . G . . (1 

2790:29 

20 

34 

35 

20 

36 

37 

20 

35 

35 

20 

34 

34 

10 

03 

1F 

-) 45 67 55 44. . . 

27A0-.4C 

45 

IB 

47 

53 

61 

6E 

74 

16 

42 

65 

1F 

4D 

45 

IB 

42 

-LE. GSant .Be .ME. B 

27B0 : 31 

20 

20 

70 

6C 

20 

46 

6F 

6E 

74 

65 

6E 

6F 

79 

20 

20 

-1 pl Fontenoy 

27 CO : 37 

65 

1F 

4E 

45 

IB 

44 

60 

12 

63 

1F 

4F 

45 

IB 

47 

4D 

-7e .NE .D ' .c.OE.GM 

27D0 : 69 

6E 

69 

73 

74 

16 

41 

65 

72 

65 

20 

64 

65 

73 

20 

1F 

-inist .Aere des . 

27E0-.50 

45 

IB 

47 

52 

65 

6C 

61 

74 

69 

6F 

6E 

73 

20 

45 

78 

-PE. GRelatlons Ex 

27F0: 74 

16 

42 

65 

72 

69 

65 

75 

72 

65 

73 

1F 

52 

43 

IB 

47 

-t . Berieures . RC . G 

2800:01 

34 

04 

20 

2D 

1F 

52 

46 

IB 

42 

33 

37 

20 

20 

71 

75 

-.4. -.RF.B37 gu 

2810:61 

69 

20 

4F 

72 

73 

61 

19 

20 

20 

37 

65 

1F 

52 

5A 

IB 
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2820:47 

10 

02 

28 

31 

29 

20 

34 

35 

20 

35 

35 

20 

39 

35 

20 
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30 

10 

03 

14 

1F 

32 

33 

OD 

18 

00 

00 

1F 

32 

33 

IB 

-40 23 23. 

2840:44 

60 

12 

67 

14 

IF 

58 

51 

OD 

18 

00 

00 

1F 

58 

51 

IB 
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70 

61 

67 

65 

OE 

20 

OF 

73 

75 

69 

76 

61 

6E 

74 

65 
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20 

OF 

16 

2E 

IB 

5A 

IB 
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-TE . .AA. . 


ProDOS 


Récupération 
parTPom’s 
sans n° de 
téléphone 
(206 caractères) 


11+ 

Ile 

lle+ 

Ile 

llgs 


Seuls les caractères TEXT 
utilisables sont gardés ; les 
caractères accentués sont 
recodés avant stockage. 

Ministère de la 
Justice 

13 pl Vendôme le 
PARIS 
*** 

Ministère de la Mer 
3 pl Fontenoy 7e 
PARIS 
*** 

Ministère de la 
Santé 

1 pl Fontenoy 7e 
PARIS 
*** 

Relations Extérieures 
37 quai Orsay 7e 
PARIS 
** * 


Source T. PO MS. 2 

SETEOF 

KBD 

- 

$D0 

$C000 

DEVO 

JSR 

BCC 

VERSSC 

DEVOO 

Assembleur ProCODE 

STROBE 

= 

$C010 


JSR 

HOME 



HP 

= 

SCO 30 


LD Y 

*0 

* 

— 

COUT 

= 

$FDED 

n 

LDA 

PASSSC, Y 

* ANNUAIRE 


GBASL 

= 

$26 


BEQ 

12 

* (c) Pom ’s & 

CP 

GBASCALC 

= 

$F84 7 


JSR 

COUT 

* 

— 

VT AB 

= 

$FC22 


INY 


*120587 


CV 

= 

$25 


BNE 

a 

DSK 

T.POMS 

WNDTOP 

= 

$22 


JSR 

BIP 

ORG 

$ 2000 

WNDBTM 

= 

$23 

12 

JMP 

BASIC 



CH 

= 

$24 




COMPT 

$18 

STROUT 

= 

$DB3A 

DEVOO 

LDA 

$FBB3 

FILEBUF = 

$1000 

HOME 

= 

$FC58 


CMP 

# 6 

BUFONLIN = 

$1500 

TEXT 

= 

$FB39 


BNE 

DEVOE 

B U FF IN 

$1600 

BASIC 

= 

$3D0 


LDA 

SFBCO 

PATHNAME = 

$1700 

CLREOP 

= 

$FC42 


BNE 

U 

MLI 

$BFOO 

CLREOL 

= 

$FC9C 


JSR 

DEUXC 

CREATE 

$C0 

LINPTR 

= 

$ED24 




OPEN 

$C8 

LASTDEV 

= 

$BF30 

a 

LDA 

INT 

READ 

$CA 





JSR 

$FE95 

WRITE 

$CB 

DEBOO 

LDX 

#$FF 


LDA 

#7 

CLOSE 

$CC 


TXS 



JSR 

COUT 

GETFINFO = 

$C4 


LDA 

$BFOO 


JSR 

$FE93 

ONLINE 

$C5 


CMP 

f$4C 


LDA 

#7 

STPREFIX = 

$C6 


BEQ 

DEVO 


JSR 

ssc 

GTPREFIX = 

$C7 


LDA 

»$7F 


JSR 

PARASSC 

GETTIME = 

$82 


JSR 

ERREUR 


JSR 

INITSSC 

GETEOF 

$D1 


JMP 

BASIC 





J 


Pom's n° 30 


55 



DEVOE 


DA IMPRIME 
DA MODPREF 


LDA 

#<RESET 

STA 

$3F2 

LDA 

#>RESET 

STA 

$3F3 

EOR 

#$A5 

STA 

$3F4 

LDA 

LASTDEV 

STA 

LD 

JSR 

MLI 

DFB 

ONLINE 

DA 

PARLDO 

BCS 

MENU 

LDA 

PATHNAME 

AND 

#%00001111 

STA 

PATHNAME 

TA Y 


LDA 

PATHNAME, Y 

INY 


STA 

PATHNAME, Y 

DEY 


DEY 


CP Y 

#0 

BNE 

]1 

LDA 

#"/" 

STA 

PATHNAME +1 

INC 

PATHNAME 

JSR 

MLI 

DFB 

STPREFIX 

DA 

PARLD1 

JMP 

MENU 


DA ONL 
DA CATAL 
DA QUITTER 

LD A #21 
JSR COUT 
JSR TEXT 
JSR HOME 
JSR CLOS EF IL 

LDA # 1 
JSR LIGNE 
LDA #22 
JSR LIGNE 
LDX # 0 

LDA MESTITRE, X 
BEQ ]2 
JSR COUT 
INX 

BNE ] 1 
JSR LITPREF 
LDA #3 
STA WNDTOP 
LDA #22 
STA WNDBTM 
LDA #4 
JSR VTAB1 
LDY #8 
LDA P OMS, Y 
STA $4 9F, Y 


LDA #4 
JSR VTAB1 
LDY #0 

LDA MESMENU, Y 


BNE ]1 
]2 LDA #1 

STA LONG 
LDA #19 
JSR GBASCALC 
LDA #35 
ADC GBASL 
STA GBASL 
BCC ]3 
INC GBASL +1 

] 3 JSR INPUT 

LDY #6 
LDA BUFFIN 

] 4 CMP MESCHOIX, Y 

BEQ ] 5 
DEY 

BPL ]4 
JSR BIP 
BCS ]2 

] 5 LDA #<ADRCHOIX 

STA CHOIXIND-hl 
TYA 

BEQ CHOIXIND 
] 6 INC CHOIXIND+1 

INC CHOIXIND-hl 
DEY 

BNE ]6 

CHOIXIND JMP (ADRCHOIX) 

LIGNE JSR GBASCALC 

LDY #39 
LDA #"_" 

] 1 STA (GBASL) , Y 


ADRCHOIX 

DA 

DA 

RECANN 

RECANNST 

BEQ ] 2 
JSR COUT 





BPL ]1 

RTS 







1 3 

LDA 

*6 


limite fenetre 

* RECEVOIR ANNUAIRE 



STA 

WNDTOP 








LDY 

*39 


affiche message en bas 





] 30 

LDA 

BAS, Y 

; 

de 1 ’ écran 

RECANNST 

LDA 

*0 

; réception sans n° téléphone 


STA 

$7 DO, Y 




STA 

TELEPH 



DEY 





BEQ 

RECANNl 



BPL 

J 30 



RECANN 

LDA 

* i 

; réception avec n° 

]3000 

JSR 

SAISINl 

• 

saisie du nom de fichier 


STA 

TELEPH 



BCC 

1300 



RECANNl 

JSR 

HOME 



JMP 

MENU 




JSR 

LITPREF 


] 300 

JSR 

CREFIC 

; 

création du fichier 






BCS 

RECANNl 




LDA 

LNGPATHN 

; cherche place disponible sur 

] 301 

LDA 

LNGPATHN 




STA 

PATHNAME 

; le volume 


STA 

PATHNAME 




LDA 

*4 



JSR 

OUVREFIC 

; 

ouverture du fichier 


JSR 

VTABl 



BCC 

131 




JSR 

GFI 



JSR 

ERREUR 




BCC 

n 



JSR 

GETRET 




JSR 

GETRET 



JMP 

MENU 




JMP 

MENU 


131 

JSR 

VIDEF 

; 

remet le fichier à 






BCC 

] 31 A 

; 

0 s'il existait 

H 

LDA 

#8 



JSR 

GETRET 




STA 

CH 



JMP 

MENU 




LDA 

AUXTYPG 

; 1 ' affiche 

] 31 A 

JSR 

HOME 




SEC 




JSR 

INICOMPT 




SBC 

BLOCKUS 



JSR 

TRAIT 1 

; 

affiche mémoire disponible 


TAX 









LDA 

AUXTYPG+1 



LDA 

*13 




SBC 

BLOCKUS +1 



JSR 

VTABl 




JSR 

LINPTR 








INC 

CH 



LDY 

*0 

; 

affiche 'prêt à recevoir ' 





] 310 

LDA 

PRET, Y 




LDX 

#0 



BEQ 

1311 



]2 

LDA 

BL, X 



JSR 

COUT 




BEQ 

13 



INY 





JSR 

COUT 



BNE 

1310 




INX 









BNE 

12 


1311 

LDA 

*10 




Pom's n° 30 




JSR 

VTABl 




STA 

P 









JMP 

BOUCLE 



DR 

JSR 

INICOMPT 


initialise compteur de 











R1B 

LDA 

NA 

; 

on hésitait entre nom/adress ? 


LDA 

#$42 

; 

ville présumée en 2ème ligne 


BNE 

]22 




STA 

HVILLE 




JSR 

R1C 




LDA 

#$FF 

,* 

aucun caractère reçu 


JMP 

BOUCLE 

/ 

non, on boucle 


STA 

DP 



]22 

JSR 

R1C 

; 

oui, on reçoit un autre carac t 1 







CMP 

#$42 

; 

c’est 42, on recevra peut-être 

BOUCLE 

JSR 

R1C 

/ 

boucle principale : on teste 


BNE 

] 3 

; 

une adresse 


CMP 

#$1F 

; 

les caractères de contrôle de 


LDA 

AP 

; 

adresse possible ? 


BEQ 

R1F 

/ 

1 'affichage Minitel et on 


BEQ 

]220 







positionne 


LDA 

#1 




CMP 

#$1B 


des drapeaux en conséquence 


STA 

A 




BNE 

] 10 

; 

pour afficher et stocker ou 


LDA 

#0 




JMP 

R1B 

; 

non les carac qui suivront 


STA 

PP 



]10 

CMP 

#$10 




STA 

NA 




BNE 

J 11 



] 220 

JMP 

BOUCLE 




JMP 

RIO 



]3 

CMP 

#$47 

; 

c'est 47, on recevra un nom 

111 

CMP 

#$18 




BNE 

] 4 




BNE 

1111 




LDA 

#1 




JMP 

RI 8 




STA 

N 



]U1 

CMP 

#$C 




LDA 

#0 




BNE 

]2 




STA 

PP 




JMP 

RC 




STA 

NA 



]2 

CMP 

#$60 



] 4 

JMP 

BOUCLE 




BNE 

]3 









JMP 

R60 



RIO 

JSR 

R1C 

; 

reçu 10, on attend un caract 

]3 

CMP 

#$16 




CMP 

#2 

; 

c’est 2, alors début du téléph j 


BNE 

] 4 




BNE 

] 1 




JMP 

RI 6 




LDA 

#1 



]4 

LDX 

VR 

; 

si on n 'a pas reçu la ville 


STA 

T 




BEQ 

BOUCLE 

; 

on n’affiche rien. 


LDA 

#0 




JMP 

RAUTRE 

; 

affiche éventuellement 


STA 

PP 








11 

CMP 

#3 

; 

c'est 3, alors fin du téléph 

R1F 

LDA 

N 

; 

reçu $1F 


BNE 

]2 




BEQ. 

]2 

; 

si nom en cours , fin du nom 


LDA 

#0 




JSR 

FINNOM 




STA 

T 



12 

LDA 

A 




STA 

PP 




BEQ 

]3 

; 

si adress en cours , fin adress 

]2 

JMP 

BOUCLE 

; 

autre, on boucle 


JSR 

FINADR 








13 

LDA 

P 

; 

si prénom en cours , fin prénom 

R18 

LDA 

# 0 

; 

reçu $18 ou $60 $12 


BEQ 

] 30 




STA 

V 

; 

fin d’un groupe ou d'une page 


JSR 

FINPRE 




STA 

N 

; 

réinitialise les drapeaux 

]30 

JSR 

R1C 

; 

recevoir 2 caractères de plus 


STA 

A 




STA 

Fl 

; 

Fl et F2, qui suivent $1F 


STA 

NA 




JSR 

R1C 




STA 

T 




STA 

F2 




STA 

P 









STA 

AP 




LDA 

Fl 

; 

si Fl = 42 (ou 43...) et F2 = 45 


STA 

PP 




CMP 

HVILLE 

; 

on va recevoir la ville. 


BIT 

DP 




BCS 

] 300 

; 

< 42, on boucle 


BMI 

]1 




JMP 

BOUCLE 




JSR 

AFVILLE 



] 300 

BNE 

]5 




JSR 

TRAIT 




LDA 

F2 



n 

JMP 

BOUCLE 




CMP 

#$45 









BNE 

]4 



R60 

JSR 

R1C 

; 

reçu $60, attend 1 caract 


LDA 

#1 




CMP 

#$12 

; 

si c’est 12, fin du groupe 


STA 

V 

; 

c 'est la ville 


BNE 

] 1 

; 

nom + adresse + tél + comment 


LDA 

#0 




JMP 

R18 




STA 

PP 



11 

JMP 

BOUCLE 

; 

sinon on boucle 


JSR 

R1C 

; 

évite le premier $1B $47 







JSR 

R1C 

; 

avant de recevoir la ville 

RC 

LDA 

#0 




JMP 

RVILLE 




STA 

VR 

; 

ville non reçue | 

14 

JMP 

BOUCLE 




JMP 

R18 



15 

LDA 

F2 


a <> $42, ce n 'est pas la vill 

RI 6 

JSR 

R1C 


reçu $16, alphabet G2 


CMP 

#$45 

; 

F2 = 45 ? 


TAX 





BEQ 

]6 

; 

oui, on recevra nom ou adresse 


AND 

#$F0 

; 

si carac = $4x, c'est une 


BCS 

] 7 

; 

> à 45, on recevra le prénom 


CMP 

#$40 

; 

minuscule accentuée ou ç 


JMP 

BOUCLE 

' 

autre chose, on boucle 


BEQ 

RI 62 



je 

LDA 

Fl 


nom et adresse ne peuvent être 


TXA 


; 

ce n 'est pas un accent 


CMP 

#$44 

• 

avant ligne $45 


LD Y 

#0 




BCC 

J 60 



] 1 

CMP 

ACT1, Y 

; 

cherche dans la table 


LDA 

#1 

; 

on recevra nom ou adresse 


BEQ 

1 2 




STA 

NA 




INY 





LDA 

#0 




INY 





STA 

PP 














CP Y 

#34 



] 60 

JMP 

BOUCLE 














BNE 

]1 









JMP 

BOUCLE 



n 

LDA 

#1 

; 

on recevra prénom 

]2 

INY 





Pom's n° 30 


J 

57 




LDA 

ACTl , Y 

; 

charge carac correspondant 


LDA 

#$42 


JMP 

RAUTRE 

; 

avant traitement normal 


STA 

HVILLE 







LDA 

#1 

RI 62 

STX 

Cl 

; 

on attend le deuxième 


STA 

VR 


JSR 

R1C 

; 

caractère 


JMP 

BOUCLE 


STA 

C2 



]6 

LDA 

#$43 







STA 

HVILLE 


LD Y 

# 0 




JMP 

R1F 

]1 

LDA 

Cl 







CMP 

ACT2, Y 

; 

compare le premier 

COUT1 

ORA 

#$80 


BNE 

]2 




JSR 

STOCK 


INY 





JMP 

COUT 


LDA 

C2 







CMP 

ACT2, Y 

; 

compare le deuxième 

AFVILLE 

LDA 

VILLE 


BNE 

]3 




BNE 

]2 


INY 





RTS 



LDA 

ACT2, Y 



]2 

LD Y 

#1 


JMP 

RAUTRE 



Jl 

LDA 

VILLE, Y 

]2 

INY 





JSR 

COUT1 

13 

INY 





INY 



INY 





CP Y 

VILLE 


CP Y 

#42 




BNE 

Jl 


BNE 

Jl 




JMP 

CROUT 


JMP 

BOUCLE 



R1C 

JSR 

REÇOIT 

RAUTRE 

CMP 

#$20 




BCS 

Jl 


BCC 

]1 




LDA 

KBD 


STA 

CRECU 




BIT 

STROBE 


LDA 

TELEPH 




AND 

#%11011111 


AND 

T 


opérations logiques sur 


CMP 

#"S" 


STA 

T 

; 

les drapeaux pour décider 


BEQ 

SVM 


LDA 

P 

! 

si on affichera ou non 


CMP 

#$9B 


AND 

PP 

r 

le caractère reçu. 


BNE 

R1C 


ORA 

N 




JSR 

SAUVEMEM 


ORA 

A 




LDX 

#$FF 


ORA 

T 




TXS 



ORA 

NA 




JMP 

MENU 


BEQ 

]1 



] 1 

RTS 



LDA 

CRECU 



SVM 

JSR 

SAUVEMEM 


STA 

CRECU1 




LDX 

#$FF 


AND 

#$7F 




TXS 



STA 

DP 




JMP 

DR 


JSR 

COUT1 






11 

JMP 

BOUCLE 



TRAIT 

BIT 

DP 







BMI 

TRAIT 2 

FINNOM 

BIT 

DP 




JSR 

CROUT 


BMI 

] 1 




JSR 

$FC42 


JSR 

CROUT 




LDA 

#$8D 

H 

LDA 

#0 




JSR 

STOCK 


STA 

N 




LDY 

#3 


LDA 

#1 



Jl 

LDA 

#"*" 


STA 

PP 

; 

prénom possible 


JSR 

STOCK 


STA 

AP 

; 

adresse possible 


DEY 



RTS 





BNE 

Jl 







LDA 

#$8D 

FINADR 

BIT 

DP 




JSR 

STOCK 


BMI 

] 1 




LDY 

#$FF 


JSR 

CROUT 




STY 

DP 

11 

LDA 

#0 







STA 

A 



TRAIT 1 

LDA 

#8 


RTS 





JSR 

VTAB1 







LDA 

#0 

FINPRE 

BIT 

DP 

; 

si on n 'a pas reçu de caract 


STA 

CH 


BMI 

31 

; 

il n'y a pas de prénom 





JSR 

CROUT 




LDY 

#25 

H 

LDA 

# 0 



]100 

LDA 

#"-" 


STA 

P 




JSR 

COUT 


RTS 





DEY 








BPL 

J100 

RVILLE 

LDA 

#0 

; 

stocke ville 


LDA 

#"/,, 


STA 

VILLE 




JSR 

COUT 

14 

JSR 

R1C 




LDA 

# " " 


CMP 

#$1F 




JSR 

COUT 


BEQ 

]6 

; 

ce n’était pas la ville 


SEC 



CMP 

#$1B 




LDA 

#$FF 


BEQ 

]5 




SBC 

COMPT 


INC 

VILLE 




TAX 



LD Y 

VILLE 




LDA 

#$95 


STA 

VILLE, Y 




SBC 

COMPT +1 


CP Y 

#30 




JSR 

LINPTR 


BNE 

]4 




LDA 

#" " 

15 

LDA 

# 0 




JSR 

COUT 


STA 

V 







V. 


; ville reçue 

; ville en ligne 3 et non 2 
; car la rubrique occupait 2 
; lignes 

; 'poids forise ' le caractère 
; stockage et affichage 

; affiche et stocke la ville 


; reçoit 1 caractère 
; retenue = 0 : pas reçu 
; une touche pressée ? 

; convertit en majuscule 
; si S, on sauvegarde 
; et on continue à enregistrer 
; si ESC , on sauvegarde et 
; on termine 


: a-t-on reçu des caractères ? 

: efface fin écran 


■ met un séparateur entre deux 
’ adresses 


■ affiche mémoire disponible 
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LDA 

#"/" 


JSR 

COUT 

]101 

LDA 

#"-" 


JSR 

COUT 


LDA 

CH 


BNE 

] 101 


JSR 

CROUT 


LDA 

#10 


JMP 

VTAB1 

TRAIT 2 

JMP 

CROUT 

STOCK 

STA 

CARAC 


STY 

RY 


LDA 

COMPT 


CMP 

#$FF 


BNE 

]1 


LDA 

COMPT +1 


CMP 

#$95 


BEQ 

] FIN 

]1 

INC 

COMPT 


BNE 

J2 


INC 

COMPT +1 

]2 

LDA 

CARAC 


LD Y 

#0 


STA 

(COMPT) , Y 


LD Y 

RY 


RTS 


] FIN 

JMP 

SVM 

CROUT 

LDA 

CRECU1 


CMP 

#$8D 


BNE 

]1 


RTS 


]1 

LDA 

#$8D 


STA 

CRECU1 


JSR 

STOCK 


JSR 

CLREOL 


JMP 

$DAFB 

SAUVEMEM 

LDA 

#$8D 


STA 

$3000 


SEC 



LDA 

COMPT +1 


SBC 

#$30 


STA 

LAS+1 


LDA 

COMPT 


STA 

LAS 


JSR 

EF 


BCC 

] 1 


JSR 

ERREUR 


JSR 

GETRET 

]1 

RTS 


INICOMPT 

LDA 

#0 


STA 

COMPT 


LDA 

#$30 


STA 

COMPT+1 


RTS 


VILLE 

DS 

40 

Fl 

DS 

1 

F2 

DS 

1 

V 

DS 

1 

P 

DS 

1 

NA 

DS 

1 

AP 

DS 

1 

A 

DS 

1 

T 

DS 

1 

N 

DS 

1 

CRECU 

DS 

1 

CRECU1 

DS 

1 

DP 

DS 

1 

HVILLE 

DS 

1 

VR 

DS 

1 

TELEPH 

DS 

1 

RY 

DS 

1 

CARAC 

DS 

1 

Cl 

DS 

1 

C2 

DS 

1 

BL 

ASC 

” blocs lib 


DFB 

0 


BAS ASC ” <ESC> Sauvegarde/Fin <S> Sauvegarde 

PRET ASC " Fichier TEXT créé " 

ASC ” Prêt pour consultation de 1 ' annuaire 11 
DFB 0 


* IMPRIMER UN FICHIER 


; stocke les caractères reçus 
; et filtrés 


mémoire saturée ? 


;oui , on enregistre 


stocke un retour chariot 


efface fin de la ligne 
crout 


IMPRIME 

JSR 

HOME 




JSR 

LITPREF 



]1 

JSR 

SAIS IN 2 

; 

saisie du nom de fichier 


BCC 

]2 




JMP 

MENU 



]2 

LDA 

LNGPATHN 




STA 

P AT H N AME 




JSR 

OUVREFIC 

; 

ouverture du fichier 


BCC 

]3 



] 20 

JSR 

ERREUR 




JSR 

GETRET 




JMP 

IMPRIME 



13 

JSR 

GFI 


get file info pour type de 


BCS 

] 20 

-■ 

fichier 


LDA 

FILETYG 




CMP 

#4 

; 

fichier TEXT ? 


BEQ 

]3B 




CMP 

#$1A 

; 

fichier de texte AppleWorks 


BEQ 

]3B 




LDA 

#$7C 

; 

non r erreur 


BNE 

] 20 



]3B 

LDA 

#1 


ne lire qu'un caractère 


STA 

LAS 




LDA 

#0 




STA 

LAS+1 
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JSR 

LITFIC 


le lire 


BCC 

]4 




CMP 

#$4C 

; 

fin de fichier ? 


BEQ 

FINIMPRI 




JSR 

ERREUR 




JSR 

GETRET 




JMP 

MENU 



14 

LDA 

$3000 




ORA 

#$80 




CMP 

#$8D 

; 

est-ce un CR 


BNE 

]5 




LD Y 

#79 

! 

on n 'imprimera pas plus de 


STY 

NBCR 

; 

80 caractères par ligne. 

15 

JSR 

$C100 

; 

(utile si ce n 'est pas un 


DEC 

NBCR 

; 

fichier d'adresse qui est 


BPL 

]6 

; 

imprimé ) 


LDA 

#$8D 




JSR 

$C100 




LD Y 

#79 




STY 

NBCR 



16 

LDA 

KBD 




BIT 

STROBE 




CMP 

#$9B 




BNE 

J 30 



FINIMPRI 

LDA 

#$8D 




JSR 

$C100 




JSR 

$FE93 




JMP 

MENU 



NBCR 

DS 

1 




Source T.POMS.3 

Assembleur ProCODE 


JSR HOME 
JMP BASIC 


* QUITTER 


QUITTER JSR TEXT 


* SAISIE NOM FICHIER 


SAIS INI JSR SAISP 

LD Y #>NOMFICH 


Pom's n° 30 
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LDA 

#<NOMFICH 


CMP 

•• 


LD Y 

to 


BNE 

SAISIN3 


BCC 

INERR 

10 

LDA 

CMD, Y 





CMP 

t"/" 


STA 

$ 200 , y 

SAISIN2 

JSR 

SAISP 


BEQ 

SLASH 


CMP 

t$8D 


LD Y 

#>NOMFICHl 


CMP 

#"A" 


BEQ 

n 


LDA 

t<NOMFICHl 


BCC 

CHIFFRE 


INY 






AND 

ttllOlllll 


BNE 

10 

SAIS IN 3 

JSR 

STROUT 


CMP 

f$DB 





LDA 

t 38 


BCS 

INERR 

n 

JSR 

SBE03 


STA 

LONG 


BCC 

INLETTRE 


CMP 

S6 


LDA 

#9 





BEQ 

] TO 


JSR 

GBASCALC 

SLASH 

CP Y 

to 


CMP 

#8 


JSR 

INPUT 


BEQ 

INLETTRE 


BNE 

]T 


BCC 

n 


BNE 

CHIFFREl 

] TO 

JSR 

ERREUR 


RTS 





]T 

JSR 

GETRET 

n 

LD Y 

TPS 

CHIFFRE 

CMP 

t":" 


JSR 

HOME 


BNE 

]2 


BCS 

INERR 


JSR 

LITPREF 


JSR 

BIP 


CP Y 

#0 


JMP 

CHOIX 


B CS 

SAISIN1 


BEQ 

INERR 




12 

STY 

P AT H N AME 

CHIFFREl 

TAX 


* 


— 


STY 

LNGPATHN 


DEY 


* CHERCHE DATE /H EURE 

]3 

LDA 

BU FF IN, Y 


LDA 

(GBASL) , Y 

* CREE FICHIER 


IN Y 



INY 


* 


— 


STA 

PATHNAME , Y 


CMP 

»«/" 





DEY 



BEC. 

INERR 

CREFIC 

LDA 

$C061 


DEY 



TXA 



ORA 

$C062 


BPL 

13 


BMI 

INLETTRE 


STA 

POMMES 


CLC 






LDA 

f$C3 


RTS 


INERR 

JSR 

BIP 


STA 

ACCESBT 





BCS 

IN CL AVI 


LDA 

# 4 

SA ISP 

LDA 

#7 





STA 

FILETYPE 


STA 

cv 

INESC 

LD Y 

LONG 


LDA 

to 


JSR 

VT A B 


LDA 

#" " 


STA 

AUXFLTP 


LDA 

# 0 

n 

STA 

(GBASL) / Y 


STA 

AUXFLTP-l-1 


STA 

CH 


DEY 



LDA 

ti 


RTS 



BPL 

n 


STA 

STORAGE 





LDA 

#0 




NOMFICH 

ASC 



STA 

B U FF IN 


JSR 

CREFICH 

"Nom 

du fichier TEXT à créer : " 


SEC 



BCC 

n 





RTS 



BIT 

POMMES 


DFB 

0 





BMI 

12 

NOMFICH1 

ASC 


INRETOUR 

LDA 

pose 


JSR 

ERREUR 





BEQ 

INERR 


JSR 

GETRET 

"Nom 

du fichier TEXT a imprimer : ' 


CMP 

LONG 


SEC 



DFB 

0 


BNE 

INR1 

n 

RTS 






LDA 

#" " 

12 

CLC 


* 


— 


BNE 

INR2 


RTS 


* INPUT 



INR1 

LDA 

" 




* 


— 

INR2 

STA 

(GBASL) , y 

CREFICH 

JSR 

MLI 





DEY 



DFB 

GETTIME 

INPUT 

LDX 

#0 


DEC 

pose 


DA 

0 


STX 

pose 


JMP 

INCLAV 


LD Y 

t3 







n 

LDA 

$BF93, Y 


LD Y 

LONG 

INLETTRE 

STA 

(GBASL) , y 


STA 

DATECRE, Y 


LDA 

#". - 


INC 

pose 


DEY 


n 

DEY 



INY 



BPL 

n 


BEQ 

INCLAV 


JMP 

INCLAV 





STA 

(GBASL) , Y 





JSR 

MLI 


BNE 

]1 

INVALID 

STY 

TPS 


DFB 

CREATE 





LDA 

t" " 


DA 

PARLST 

INCLAV 

LDA 

t") " 

10 

STA 

(GBASL) , y 


RTS 



STA 

(GBASL) , Y 


CP Y 

LONG 








BEQ 

n 

POMMES 

DS 

1 

IN CL AVI 

LDA 

(GBASL) , Y 


INY 






EOR 

# i 


BNE 

10 

* 


— 


STA 

(GBASL) , Y 




* GET EOF 



LDX 

t$ 39 

n 

LD Y 

TPS 

* 


— 

ni 

DEX 



LDA 

#0 





BNE 

]11 


STA 

BUFFIN, Y 

GET LONG 

JSR 

MLI 


LDA 

KBD 


DEY 



DFB 

GETEOF 


BPL 

IN CL AVI 


BMI 

13 


DA 

PAREOF 


BIT 

STROBE 

12 

LDA 

(GBASL) , Y 


BCC 

n 





STA 

BUFFIN , Y 


JSR 

ERREUR 


CMP 

#$9B 


DEY 


n 

RTS 



BEQ 

INESC 


BPL 

12 ' 





CMP 

*$88 

1 3 

CLC 


* 


— 


BEQ 

INRETOUR 


RTS 


* OUVRE 

FICHIER 


CMP 

t$FF 




* 


— 


BEQ 

INRETOUR 

* _ 

— 

— 





CMP 

t$8D 

* CATALOG 


OUVREFIC JSR 

MLI 


BEQ 

INVAL ID 

* 

— 

— 


DFB 

OPEN 


CP Y 

LONG 





DA 

PARLSTO 


BEQ 

INERR 

CATAL 

JSR 

HOME 


BCC 

n 


V 
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JSR 

ERREUR 


LSR 



INY 


11 

RTS 



LSR 



STA 

P AT HN AME, 





LSR 



DEY 


* 


— 


LSR 



DEY 


* ECRIT 

FICHIER 


AND 

#%00000111 


BPL 

12 

* 


— 


ORA 

#% 10 110000 








JSR 

COUT 

MODMLI 

JSR 

MLI 

EF 

LDA 

REFNUM 


LDX 

#0 


DFB 

STPREFIX 


STA 

REFNUMW 

]E 

LDA 

MESON1 , X 


DA 

PARLSTCP 


JSR 

MLI 


BEQ 

]F 


BCC 

OKCH 


DFB 

WRITE 


JSR 

COUT 


PHA 



DA 

PARLSTW 


INX 



JSR 

$DAFB 


BCC 

a 


BNE 

]E 


PLA 



JSR 

ERREUR 

]F 

LDA 

#"1 " 


JSR 

ERREUR 

]1 

RTS 



BIT 

LNG 


JSR 

GETRET 





BPL 

n 


JMP 

MODPREF 






#"2" 

OKCH 

JMP 

VADEB 

* LIT FICHIER 


11 

JSR 

COUT 

PARLSTCP 

DFB 

1 





LDA 

#" ” 


DA 

P AT H N AME 










LITFIC 

LDA 

REFNUM 











LDA 

LNG 





STA 

REFNUMW 


AND 

#$F 

* LIT PREFIXE 




MLI 











STA 

LNG 





DFB 

READ 



*"/" 





DA 

PARLSTW 


LDA 

LITPREF 

JSR 

MLI 


RTS 



JSR 

COUT 


DFB 

GTPREFIX 




AFF 

INY 



DA 

PARLSTCP 

* 




LDA 

BUFONLIN, Y 


BCC 

]000 

* VIDE 

FICHIER 


ORA 

#%10000000 


JSR 

ERREUR 

* 




JSR 

COUT 








DEC 

LNG 

1000 

LDA 

# 3 

VIDEF 

LDA 

REFNUM 


BNE 

AFF 


STA 

cv 


STA 

REFNUM7 


LDA 

*$8D 


JSR 

VT AB 


JSR 

MLI 


JSR 

COUT 





DFB 

SETEOF 

ERR 

DEC 

CNT 


LDX 

#0 


DA 

PARLST7 


BPL 

ON LIN ED 

10 

LDA 

ME S S PR, X 


BCC 

n 


JSR 

GETRET 


BEQ 

]00 


JSR ‘ 

ERREUR 

VADEB 

JSR 

HOME 


JSR 

COUT 

a 

RTS 



JSR 

LITPREF 


INX 






JMP 

CHOIX 


BNE 

10 


* CLOT FICHIER 


CLOSEFIL LDA 

REFNUM 

STA 

REFNUMC 

JSR 

MLI 

DFB 

CLOSE 

DA 

PARLSTC 

RTS 



* ONLINE 





O 

o 

LDA 

P AT H NAM E 

* 


— 


STA 

LNGPATHN 

* GET 

FILE INFO 


LDX 

ti 

* 


— 

n 

LDA 

P AT H N AME, X 





ORA 

#§20000000 

GFI 

JSR 

MLI 


JSR 

COUT 


DFB 

GETFINFO 


INX 



DA 

PARLSTG 


DEC 

P AT H N AME 


BCC 

a 


BNE 

n 


JSR 

ERREUR 


JMP 

$DAFB 

n 

RTS 






* * RECEVOIR UN CARAC DANS L'ACC 

* CHANGE PREFIXE * CARRY CLEAR SI PAS DE CARACT 


ONL 

JSR 

HOME 

* 


— 

* 


— 


LD Y 

#>MES0NL 








LDA 

#<MES0NL 

MODPREF 

JSR 

HOME 

REÇOIT 

BIT 

DINT 


JSR 

STROUT 


JSR 

LITPREF 


BMI 

REC0IT7 


JSR 

MLI 

MODPR 

LDA 

#7 





DFB 

ONLINE 


STA 

CV 


LD Y 

REGY 


DA 

PARLSTN 


JSR 

VT A B 


LDA 

SC089, Y 


BCC 

10 


LDA 

#0 


AND 

#%00001000 


JSR 

ERREUR 


STA 

CH 


BNE 

11 

10 

LDA 

# 2 5 


LD Y 

#>MESM0D 


CLC 



STA 

CNT 


LDA 

#<MESM0D 


RTS 


ONL INED 

LDA 

CNT 


JSR 

STROUT 

il 

LDA 

#§00000220 


ASL 



LDA 

*38 


EOR 

$428 


ASL 



STA 

LONG 


STA 

$428 


ASL 



LDA 

*9 


LDA 

$C088, Y 


ASL 



JSR 

GBASCALC 


AND 

#%01111111 


TA Y 



INC 

GBASL 


SEC 



LDA 

BUFONLIN , Y 


JSR 

INPUT 


RTS 



STA 

LNG 


BCS 

OKCH 





AND 

#%00001111 


LD Y 

TPS 

REC0IT7 

JSR 

PARASSC 


BEQ 

ERR 


BNE 

MODO 


LDA 

#2 


LDX 

#0 


JSR 

BIP 


JSR 

STATSSC 

]G 

LDA 

MESONO, X 


BEQ 

MODPR 


BCS 

OK 


BEQ 

]H 

MODO 

STY 

P AT H N AME 


RTS 



JSR 

COUT 


INC 

P AT H N AME 





INX 



BEQ 

MODMLI 

OK 

LDA 

#§00000220 


BNE 

]G 


DEC 

GBASL 


EOR 

$428 

]H 

LDA 

LNG 

12 

LDA 

(GBASL) , Y 


STA 

$428 


J 
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JSR 

PARASSC 


CMP 

CODERR 


JSR 

READSSC 


BEQ 

] 0 


AND 

§%01111111 


CMP 

*0 


SEC 



BNE 

n 


RTS 








1 0 

INY 


PARASSC 

LDX 

REGX 


LDA 

ERREURS, Y 


LDY 

REGY 


BPL 

]0 


RTS 


]2 

JSR 

COUT 





INY 


* 


— 


LDA 

ERREURS, Y 

* ERREUR 




BMI 

]2 

* 


— 


LDA 

§ " " 





JSR 

COUT 

ERREUR 

STA 

CODERR 


LDA 

*$21 


JSR 

$DAFB 


JSR 

COUT 


JSR 

$DAFB 


SEC 



LDA 

*0 


RTS 



STA 

CH 





LDA 

*20 

* 






STA 

cv 

* ATTEND 

RETURN (OU ESC) 


JSR 

VTAB 

* 




LDA 

§$21 







GETRET 

JSR 

$DAFB 


JSR 

COUT 


LDA 

*21 


LDA 

*•• •• 


STA 

CV 


JSR 

COUT 


JSR 

VTAB 


JSR 

BIP 


LDA 

*0 


LDY 

*$FF 


STA 

CH 

n 

INY 



LDY 

*>MESRET 


LDA 

ERREURS, Y 


LDA 

§<MESRET 


Source T.POMS.4 



JSR 

STROUT 

n 

BIT 

KBD 


BPL 

]1 


BIT 

STROBE 


LDA 

KBD 


CMP 

*$D 


BEQ 

13 


CMP 

*$1B 


BEQ 

14 


JSR 

BIP 


BCS 

U 

13 

JSR 

15 


CLC 



RTS 


14 

JSR 

15 


SEC 



RTS 


]5 

LDA 

*20 


JSR 

VTAB 


JSR 

CLREOP 


RTS 


MESRET 

ASC 

» 


*** Appuyez sur <RETURN> ***" 
DFB 0 


JMP VTAB 


Assembleur ProCODE 


* MESSAGES D'ERREUR 


BIP1 


B IP 2 


TYA 
PHA 
TXA 
PHA 
LD Y 
TYA 
ROR 
TAX 
DEX 
BNE 
BIT 
DEY 
BNE 
SEC 
PLA 
TAX 
PLA 
TA Y 
RTS 


§$40 


B IP 2 
HP 


BIP1 


ERREURS DFB 3 , 8, $2 7, $28, $2F, $5A, $4E 
ASC "Erreur d’accès disque" 

DFB 6, 7 , $45, $46 

ASC "Volume/ fichier introuvable" 
DFB 4,$2B 

ASC "Disque protégé" 

DFB $40, $44 

ASC "Nom incorrect" 

DFB 17, $48, $49 

ASC "Disque/directory saturé" 

DFB $4E 

ASC "Protégé en lecture" 

DFB $ 7C 

ASC "Type TEXT seulement . . . " 

DFB $7D 

ASC "Volume saturé" 

DFB $7F 

ASC "ProDOS est indispensable" 

DFB $47 

ASC "Ce nom de fichier existe déjà" 
DFB 0 

ASC "Erreur ???" 

DFB 0 


* RESET 


RESET1 


RESET3 


RESET2 


VTAB1 


LD A §21 
JSR COUT 
JSR TEXT 
JSR HOME 
JSR CLOSEFIL 

LDY §0 

LD A MESRES1, Y 
BEQ RESET2 
JSR COUT 
INY 

BNE RESET1 

JSR GETRET 
JMP DEBOO 



V. 
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JMP $C311 


ASC 

DFB 

ASC 


* 


— 


DFB 

* VER IF 

SI ssc 



* 


— 

MESTITRE 

’ ASC 





ASC 

VERS SC 

LD Y 

#7 


DFB 

VERIFO 

TYA 





ORA 

#$co 

POMS 

ASC 


STA 

VER IF +2 



VERIF 

LDA 

$COOC 

PASSSC 

ASC 


CMP 

*$31 


DFB 


BEQ 

H 




DEY 


CMD 

ASC 


BNE 

VERIFO 


DFB 


SEC 


PP 

DS 


RTS 







MESONL 

DFB 

1 1 

STY 

INT 


ASC 


TYA 



DFB 


PHA 



ASC 


ORA 

*$co 


DFB 


STA 

SSCINIT+1 

MESONO 

ASC 


STA 

SSCREAD+1 


DFB 


STA 

SSCSTAT+1 

MESON1 

ASC 


STA 

SSCI +1 


DFB 


STA 

]40+2 




STA 

]2+2 

MESSPR 

ASC 


STA 

13+2 


DFB 


STA 

] 4+2 




STA 

REGX 

MESMOD 

ASC 


PLA 



DFB 


ASL 



ASC 


ASL 



DFB 


ASL 





ASL 


MESRES1 

DFB 


STA 

REGY 


ASC 

12 

LDA 

$COOD 


DFB 


STA 

SSCINIT 


ASC 

13 

LDA 

$COOE 


INV 


STA 

SSCREAD 


DFB 

14 

LDA 

SCO 10 


ASC 


STA 

SSCSTAT 


DFB 


LD Y 

#0 


ASC 


STY 

D1NT 


DFB 

140 

LDA 

$C000 


ASC 


CMP 

t$2C 


DFB 


BEQ 

15 


ASC 


DEC 

DINT 


DFB 

15 

CLC 



ASC 


RTS 



DFB 

ssc 

JMP 

(SSCI) 

DINT 

DS 

INITSSC 

JMP 

(SSCINIT) 

pose 

DS 

READSSC 

JMP 

(SSCREAD) 

LONG 

DS 

STATSSC 

JMP 

(SSCSTAT) 

TPS 

DS 

SSCINIT 

DA 

$ 0000 

PARLST 

DFB 

S SCRE AD 

DA 

$0000 


DA 

SSCSTAT 

DA 

$0000 

ACCES BT 

DS 

SSCI 

DA 

$0000 

FILETYPE 

DS 




AUXFLTP 

DS 

* 



STORAGE 

DS 

* CHAINES & STOCK 

DATECRE 

DS 






DS 


"<Q>ultter ’’ 
$8D 

0 


Votre choix : 


"Annuaire Electroniqu" 

"e Pom’s" 

$8D, 0 

" T_Pom’s" 

"La carte Supersérie est nécessaire . . . " 
$8D, 0 

"CAT" 

$8D 

1 

$8D 

"Volumes en ligne :" 

$8D 


$8D, $8D, 0 
"Port " 

0 

" Lect " 

0 

"Préfixe ” 

0 

"Nouveau préfixe : 
$8D , $8D 
"/" 

0 

$8D 


$8D 

" T_POM’S VI. 0 ” 

$8D f $8D, $8D 

" (c) Pom’s, CP, JLB 12/5/1987 » 

$8D, $8D, $8D, $8D 
" Un programme Pom ' s, ” 

$8D, $8D 

” la revue des Apple" 

$8D, $8D, $8D 

" Revue Pom’s : (1) 39 51 24 43" 
$8D, $8D 


0 

1 

1 

1 

1 

7 ; paramètres pour create 

P AT H N AME 
1 
1 
2 
1 
2 
2 


MESCHOIX ASC 

"RLIMVCQ" 


MESMENU DFB 

$8D, $8D 


ASC 

"<R>ecevoir annuaire avec 

ni de téléphone 

DFB 

$8D 


ASC 

"<L>e recevoir sans n[ de 

téléphone" 

DFB 

$8D, $8D 


ASC 

"<I>mprimer un fichier" 


DFB 

$8D, $8D 


ASC 

"<M>odifier le préfixe" 


DFB 

$8D, $8D 


ASC 

"<V>olumes en ligne" 


dfb 

$8D, $8D 


ASC 

"<C>a talogue " 


DFB 

$8D, $8D 



PAREOF 

DFB 

DS 

2 

1 

; paramètres pour 

geteof 


DS 

3 



INT 

DS 

1 



LNGPATHN 

DS 

1 



CODERR 

DS 

1 



PARLSTO 

DFB 

DA 

3 

P AT H N AME 

; paramètres pour 

open 


DA 

FILEBUF 



REFNUM 

DS 

1 



PARLSTG 

DFB 

$A 

; paramètres pour 

getfileinfo 





DA 

P AT H N AME 




DFB 

$2D, 



DS 

1 

; 

lect/écrit /renam . . . 


DFB 

$2E, "> 


FILETYG 

DS 

1 

; 

type de fichier 


DFB 

$2F, "v 


AUXTYPG 

DS 

2 

; 

param auxiliaire (lng par 

ex) 

DFB 

$30, "l 



DS 

1 

; 

type de stockage 


DFB 

$31, "+ 


BLOCKUS 

DS 

2 

• 

nb de blocs affectés 


DFB 

$38, "/ 



DS 

8 




DFB 

$3C, "/ 








DFB 

$3D, "/ 


PARLSTH 

DFB 

4 




DFB 

$3E, "/ 


REFNUMW 

DS 

1 




DFB 

$6 A, "* 



DA 

$3000 




DFB 

$ 7 A, " * 


LAS 

DS 

2 




DFB 

$7 B, "B 



DS 

2 




DFB 

0 


PARLST7 

DFB 

2 







REFNUM7 

DS 

1 




ACT2 DFB 

$41, $65, 

"è 


DFB 

G, 0, 0 




DFB 

$42, $65, 

"é 







DFB 

$43, $65, 

"e 

PARLSTC 

DFB 

1 




DFB 

$48, $65, 

”e 

REFNUMC 

DFB 

0 


PARLDO DFB 

2 

DFB 

$41, $61, 

"à 





LD DS 

1 

DFB 

$43, $61, 

"a 

PARLSTN 

DFB 

2 


DA 

P AT H N AME 

DFB 

$48, $61, 

"a 


DFB 

0 


PARLD1 DFB 

1 

DFB 

$43, $69, 

"i 


DA 

BUFONLIN 


DA 

P AT H N AME 

DFB 

$48, $69, 

"i 







DFB 

$43, $6F, 

"o 

CNT 

DS 

1 


ACT1 DFB 

$23, "# 

DFB 

$48, $6F, 

"o 

LNG 

DS 

1 


DFB 

$24, "$ 

DFB 

$41, $75, 

"ù 





DFB 

$26, "# 

DFB 

$48, $75, 

"u 

REGX 

DS 

1 


DFB 

$27, ••] 

DFB 

$4B, $63, 

"ç 

REGY 

DS 

1 


DFB 

$2C, ”< 

DFB 

0 



Récapitulation T.POMS 

Après avoir saisi cette récapitulation 
sous moniteur, vous la sauvegarderez par : 

BSAVE T.POMS, A$2000, LA033 


2000 :A2 

FF 

9A 

AD 

00 

BF 

C9 

4C 

2158 :8D 

00 

17 

A9 

04 

20 

2B 

2B 

2008: FO 

08 

A9 

7F 

20 

43 

2A 

40 

2160:20 

58 

29 

90 

06 

20 

8E 

2A 

2010 : DO 

03 

20 

43 

2C 

90 

16 

20 

2168:40 

A7 

20 

A9 

08 

85 

24 

AD 

2018:58 

FC 

AO 

00 

B9 

B0 

2D 

FO 

2170:48 

2F 

38 

ED 

4B 

2F 

AA 

AD 

2020:09 

20 

ED 

FD 

C8 

DO 

F5 

20 

2178:49 

2F 

ED 

4C 

2F 

20 

24 

ED 

2028 :F2 

2A 

4C 

DO 

03 

AD 

B3 

FB 

2180:E6 

24 

A2 

00 

BD 

7C 

25 

FO 

2030:09 

06 

DO 

21 

AD 

CO 

FB 

DO 

2188:06 

20 

ED 

FD 

E8 

DO 

F5 

A9 

2038:03 

20 

1E 

20 

AD 

3A 

2F 

20 

2190:06 

85 

22 

AO 

27 

B9 

97 

25 

2040:95 

FE 

A9 

07 

20 

ED 

FD 

20 

2198:99 

DO 

07 

88 

10 

F7 

20 

Al 

2048:93 

FE 

A9 

07 

20 

A4 

20 

20 

21A0:26 

90 

03 

40 

A7 

20 

20 

1F 

2050:30 

2A 

20 

A7 

20 

A9 

OA 

8D 

21A8:28 

B0 

A4 

AD 

3B 

2F 

8D 

00 

2058 :F2 

03 

A9 

2B 

8D 

F3 

03 

49 

21B0: 1 7 

20 

78 

28 

90 

09 

20 

43 

2060 :A5 

8D 

F4 

03 

AD 

30 

BF 

8D 

21B8:2A 

20 

8E 

2A 

4C 

A7 

20 

20 

2068 :6D 

2F 

20 

00 

BF 

C5 

6C 

2F 

2 ICO: A3 

28 

90 

06 

20 

8E 

2A 

4C 

2070 :B0 

35 

AD 

00 

17 

29 

0F 

8D 

21C8: A7 

20 

20 

58 

FC 

20 

38 

25 

2078:00 

17 

A8 

B9 

00 

17 

C8 

99 

21D0-.20 

96 

24 

A9 

0D 

20 

2B 

2B 

2080:00 

17 

88 

88 

CO 

00 

DO 

F3 

21D8 :A0 

00 

B9 

BF 

25 

FO 

06 

20 

2088 :A9 

AF 

8D 

01 

17 

EE 

00 

17 

21E0 :ED 

FD 

C8 

DO 

F5 

A9 

OA 

20 

2090:20 

00 

BF 

C6 

70 

2F 

40 

A7 

21E8-.2B 

2B 

20 

38 

25 

A9 

42 

8D 

2098:20 

4A 

21 

43 

21 

10 

26 

64 

21F0: 75 

25 

A9 

FF 

8D 

74 

25 

20 

20A0.-29 

C2 

28 

F3 

27 

98 

26 

A9 

21F8: 4 A 

24 

C9 

1F 

FO 

32 

09 

IB 

20A8 : 15 

20 

ED 

FD 

20 

39 

FB 

20 

2200: DO 

03 

4C 

A6 

22 

C9 

10 

DO 

20B0 : 58 

FC 

20 

B5 

28 

A9 

01 

20 

2208:03 

40 

El 

22 

C9 

18 

DO 

03 

20B8 : 36 

21 

A9 

16 

20 

36 

21 

A2 

2210:40 

01 

23 

C9 

OC 

DO 

03 

4C 

2000:00 

BD 

8A 

2D 

FO 

06 

20 

ED 

2218:36 

23 

C9 

60 

DO 

03 

4C 

29 

2008 :FD 

E8 

DO 

F5 

20 

07 

29 

A9 

2220:23 

C9 

16 

DO 

03 

4C 

3E 

23 

20D0 : 03 

85 

22 

A9 

16 

85 

23 

A9 

2228 :AE 

76 

25 

FO 

CA 

4C 

8D 

23 

20D8 : 04 

20 

2B 

2B 

AO 

08 

B9 

A7 

2230: AD 

71 

25 

FO 

03 

20 

02 

23 

20E0:2D 

99 

9F 

04 

88 

10 

F7 

A9 

2238: AD 

6F 

25 

FO 

03 

20 

D8 

23 

20E8 : 04 

20 

2B 

2B 

AO 

00 

B9 

BF 

2240: AD 

6C 

25 

FO 

03 

20 

E6 

23 

20F 0:20 

FO 

06 

20 

ED 

FD 

C8 

DO 

2248:20 

4A 

24 

8D 

69 

25 

20 

4A 

20F8-.F5 

A9 

01 

8D 

27 

2F 

A9 

13 

2250:24 

8D 

6A 

25 

AD 

69 

25 

CD 

2100:20 

47 

F8 

A9 

23 

65 

26 

85 

2258:75 

25 

B0 

03 

4C 

F7 

21 

DO 

2108:26 

90 

02 

E6 

27 

20 

20 

27 

2260 :1D 

AD 

6A 

25 

C9 

45 

DO 

13 

2110: AO 

06 

AD 

00 

16 

D9 

B8 

20 

2268 :A9 

01 

8D 

6B 

25 

A9 

00 

8D 

2118: FO 

08 

88 

10 

F8 

20 

F2 

2A 

2270 :DB 

2D 

20 

4A 

24 

20 

4A 

24 

2120 :B0 

D7 

A9 

99 

8D 

34 

21 

98 

2278:40 

F4 

23 

40 

F7 

21 

AD 

6A 

2 12 8: FO 

09 

EE 

34 

21 

EE 

34 

21 

2280:25 

C9 

45 

FO 

05 

BO 

17 

4C 

2130:88 

DO 

F7 

6C 

99 

20 

20 

47 

2288 :F7 

21 

AD 

69 

25 

C9 

44 

90 

2138 :F8 

AO 

27 

A9 

DF 

91 

26 

88 

2290-.0A 

A9 

01 

8D 

6D 

25 

A9 

00 

2140:10 

FB 

60 

A9 

00 

8D 

77 

25 

2298 :8D 

DB 

2D 

4C 

F7 

21 

A9 

01 

2 14 8: FO 

05 

A9 

01 

8D 

77 

25 

20 

22A0:8D 

6C 

25 

40 

F7 

21 

AD 

6D 

2150:58 

FC 

20 

C7 

29 

AD 

3B 

2F 

22A8-.25 

DO 

06 

20 

4A 

24 

40 

F7 


K 

64 


22B0-.21 

20 

4A 

24 

09 

42 

DO 

15 

2438:60 

AO 

01 

B9 

41 

25 

20 

2B 

22B8 : AD 

6E 

25 

FO 

OD 

A9 

01 

8D 

2440:24 

C8 

CC 

41 

25 

DO 

F4 

40 

2200 :6F 

25 

A9 

00 

8D 

DB 

2D 

8D 

2448:04 

25 

20 

FF 

29 

BO 

19 

AD 

22C8 :6D 

25 

4C 

F7 

21 

C9 

47 

DO 

2450:00 

CO 

20 

10 

CO 

29 

DF 

C9 

22D 0 : OD 

A9 

01 

8D 

71 

25 

A9 

00 

2458 :D3 

FO 

OE 

09 

9B 

DO 

EB 

20 

22D8: 8D 

DB 

2D 

8D 

6D 

25 

40 

F7 

2460 :1A 

25 

A2 

FF 

9A 

4C 

Al 

20 

22E0 : 21 

20 

4A 

24 

C9 

02 

DO 

OA 

2468:60 

20 

IA 

25 

A2 

FF 

9A 

4C 

22E8.-A9 

01 

8D 

70 

25 

A9 

00 

8D 

2470 :EA 

21 

20 

74 

25 

30 

64 

20 

22F0-.DB 

2D 

C9 

03 

DO 

08 

A9 

00 

2478:04 

25 

20 

42 

FC 

A9 

8D 

20 

22F 8 : 8D 

70 

25 

8D 

DB 

2D 

4C 

F7 

2480 : DE 

24 

AO 

03 

A9 

AA 

20 

DE 

2300:21 

A9 

00 

8D 

6B 

25 

8D 

71 

2488:24 

88 

DO 

F8 

A9 

8D 

20 

DE 

2308:25 

8D 

6F 

25 

8D 

6D 

25 

8D 

2490:24 

AO 

FF 

8C 

74 

25 

A9 

08 

2310:70 

25 

8D 

6C 

25 

8D 

6E 

25 

2498:20 

2B 

2B 

A9 

00 

85 

24 

AO 

2318 :8D 

DB 

2D 

20 

74 

25 

30 

06 

24A0: 19 

A9 

AD 

20 

ED 

FD 

88 

10 

2320:20 

33 

24 

20 

72 

24 

4C 

F7 

24A8-.F8 

A9 

AF 

20 

ED 

FD 

A9 

AO 

2328:21 

20 

4A 

24 

C9 

12 

DO 

03 

24B0 :20 

ED 

FD 

38 

A9 

FF 

E5 

18 

2330:40 

01 

23 

4C 

F7 

21 

A9 

00 

24B8-.AA 

A9 

95 

E5 

19 

20 

24 

ED 

2338 :8D 

76 

25 

4C 

01 

23 

20 

4A 

24C0-.A9 

AO 

20 

ED 

FD 

A9 

AF 

20 

2340:24 

AA 

29 

FO 

09 

40 

FO 

18 

24C8: ED 

FD 

A9 

AD 

20 

ED 

FD 

A5 

2348 :8A 

AO 

00 

D9 

73 

2F 

FO 

09 

24D0:24 

DO 

F 7 

20 

04 

25 

A9 

OA 

2350:08 

C8 

CO 

22 

DO 

F5 

4C 

F7 

24D8-.4C 

2B 

2B 

4C 

04 

25 

8D 

79 

2358:21 

C8 

B9 

73 

2F 

4C 

8D 

23 

24E0.-25 

8C 

78 

25 

A5 

18 

C9 

FF 

2360-.8E 

7A 

25 

20 

4A 

24 

8D 

7B 

24E8 :D0 

06 

A5 

19 

C9 

95 

FO 

11 

2368:25 

AO 

00 

AD 

7A 

25 

D9 

96 

24F0:E6 

18 

DO 

02 

E6 

19 

AD 

79 

2370:2F 

DO 

10 

C8 

AD 

7B 

25 

D9 

24F8 :25 

AO 

00 

91 

18 

AC 

78 

25 

2378:96 

2F 

DO 

08 

C8 

B9 

96 

2F 

2500:60 

4C 

69 

24 

AD 

73 

25 

C9 

2380:40 

8D 

23 

C8 

C8 

C8 

CO 

2A 

2508 :8D 

DO 

01 

60 

A9 

8D 

8D 

73 

2 38 8: DO 

El 

4C 

F7 

21 

C9 

20 

90 

2510:25 

20 

DE 

24 

20 

9C 

FC 

4C 

2390-.2E 

8D 

72 

25 

AD 

77 

25 

2D 

2518 :FB 

DA 

A9 

8D 

8D 

00 

30 

38 

2398:70 

25 

8D 

70 

25 

AD 

6C 

25 

2520: AS 

19 

E9 

30 

8D 

5A 

2F 

A5 

23A0 :2D 

DB 

2D 

OD 

71 

25 

OD 

6F 

2528:18 

8D 

59 

2F 

20 

84 

28 

90 

23A8-.25 

OD 

70 

25 

OD 

6D 

25 

FO 

2530:06 

20 

43 

2A 

20 

8E 

2A 

60 

23B0-.0E 

AD 

72 

25 

8D 

73 

25 

29 

2538 :A9 

00 

85 

18 

A9 

30 

85 

19 

23B8-.7F 

8D 

74 

25 

20 

2B 

24 

4C 

2540:60 

00 

00 

00 

00 

00 

00 

00 

23C0 :F7 

21 

20 

74 

25 

30 

03 

20 

2548:00 

00 

00 

00 

00 

00 

00 

00 

2308:04 

25 

A9 

00 

8D 

71 

25 

A9 

2550:00 

00 

00 

00 

00 

00 

00 

00 

23D0 : 01 

8D 

DB 

2D 

8D 

6E 

25 

60 

2558:00 

00 

00 

00 

00 

00 

00 

00 

23D8.-2C 

74 

25 

30 

03 

20 

04 

25 

2560:00 

00 

00 

00 

00 

00 

00 

00 

23E0 :A9 

00 

8D 

6F 

25 

60 

2C 

74 

2568:00 

00 

00 

00 

00 

00 

00 

00 

23E8-.25 

30 

03 

20 

04 

25 

A9 

00 

2570:00 

00 

00 

00 

00 

00 

00 

00 

23F0.-8D 

6C 

25 

60 

A9 

00 

8D 

41 

2578:00 

00 

00 

00 

E2 

EC 

EF 

E3 

2 3F 8 : 25 

20 

4A 

24 

C9 

1F 

FO 

23 

2580 :F3 

AO 

EC 

E9 

E2 

F2 

E5 

F3 

2400:09 

IB 

FO 

OD 

EE 

41 

25 

AC 

2588 : AO 

F3 

F5 

F2 

AO 

E3 

E5 

AO 

2408:41 

25 

99 

41 

25 

CO 

1E 

DO 

2590 :E4 

E9 

F3 

Fl 

F5 

E5 

00 

BC 

2410 :E8 

A9 

00 

8D 

6B 

25 

A9 

42 

2598:05 

D3 

C3 

BE 

AO 

D3 

El 

F5 

2418 :8D 

75 

25 

A9 

01 

8D 

76 

25 

25A0:F6 

E5 

E7 

El 

F2 

E4 

E5 

AF 

2420:40 

F7 

21 

A9 

43 

8D 

75 

25 

25A8:C6 

E9 

EE 

AO 

AO 

AO 

AO 

AO 

2428:40 

30 

22 

09 

80 

20 

DE 

24 

25B0-.A0 

BC 

D3 

BE 

AO 

D3 

El 

F5 

2430:40 

ED 

FD 

AD 

41 

25 

DO 

01 

25B8-.F6 

E5 

E7 

El 

F2 

E4 

E5 

AO 


Pom's n° 30 


1 



25C0:A0 AO AO AO AO AO AO AO 
25C8-.A0 AO C6 E9 E3 E8 E9 E5 
25D0:F2 AO D4 C5 D8 D4 AO E3 
25D8:F2 FB FB AO AO AO AO AO 
25E0:A0 AO AO AO AO AO AO AO 
25E8: AO DO F2 E5 F 4 AO FO EF 
25F0:F5 F2 AO E3 EF EE F 3 F5 
25F8 :EC F 4 El F4 E9 EF EE AO 
2600 :E4 E5 AO EC A7 El EE EE 
2608 :F5 El E9 F2 E5 AO AO 00 
2610:20 58 FC 20 C7 29 20 AA 
2618:26 90 03 4C A7 20 AD 3B 
2620:2F 8D 00 17 20 78 28 90 
2628:09 20 43 2A 20 8E 2A 4C 
2630:10 26 20 58 29 BO F2 AD 
2638:47 2F C9 04 FO 08 C9 IA 
264 0 : FO 04 A9 7C DO E3 A9 01 
2648 :8D 59 2F A9 00 8D 5A 2F 
2650:20 96 28 90 OD C9 4C FO 
2658:33 20 43 2A 20 8E 2A 4C 
2660 :A7 20 AD 00 30 09 80 C9 
2668 : 8D DO 05 AO 4F 8C 97 26 
2670:20 00 Cl CE 97 26 10 OA 
2678:A9 8D 20 00 Cl AO 4F 8C 
2680:97 26 AD 00 CO 2C 10 CO 
2688 :C9 9B DO C4 A9 8D 20 00 
2690 :C1 20 93 FE 4C A7 20 00 
2698:20 39 FB 20 58 FC 4C DO 
26A0 : 03 20 El 26 AO 26 A9 ED 
26A8 :D0 07 20 El 26 AO 27 A9 
26B0: OB 20 3A DB A9 26 8D 27 
26B8-.2F A9 09 20 4 7 F8 20 2C 
26C0:27 90 01 60 AC 28 2F DO 
26C8 : 05 20 F2 2A BO D3 8C 00 
2 6D0: 17 8C 3B 2F B9 00 16 C8 
26D8 : 99 00 17 88 88 10 F5 18 
2 6E0 : 60 A9 07 85 25 20 22 FC 
26E8-.A9 00 85 24 60 CE EF ED 
26F0 :A0 E4 F5 AO E6 E9 E3 E8 
26F8:E9 E5 F2 AO D4 C5 D8 D4 
2700: AO CO AO E3 F2 FB E5 F2 
2708: AO BA 00 CE EF ED AO E4 
2710 :F5 AO E6 E9 E3 E8 E9 E5 
2718 :F2 AO D4 C5 D8 D4 AO CO 
2720: AO E9 ED FO F2 E9 ED E5 
2728 :F2 AO BA 00 A2 00 8E 26 
2730:2F AC 27 2F A9 AE 88 FO 
2738:04 91 26 DO F9 A9 A9 91 
2740:26 B1 26 49 01 91 26 A2 
2748:39 CA DO FD AD 00 CO 10 
2750: FO 2C 10 CO C9 9B FO 44 
2758 :C9 88 FO 51 C9 FF FO 4D 
2760 :C9 8D FO 6B CC 27 2F FO 
2768 :2E C9 AE 90 2 A C9 AF FO 
2770: OC C9 Cl 90 OE 29 DF C9 
2778 :DB BO IC 90 49 CO 00 FO 
2780:45 DO 08 C9 BA BO 10 CO 
2788:00 FO OC AA 88 B1 26 C8 
2790 :C9 AF FO 03 8 A 30 2F 20 
2798 :F2 2 A BO A5 AC 27 2F A9 
27A0-.A0 91 26 88 10 FB A9 00 
27 A8: 8D 00 16 38 60 AD 26 2F 
27B0:F0 E5 CD 27 2F DO 04 A9 
27B8.-A0 DO 02 A9 AE 91 26 88 
27C0:CE 26 2F 4C 3D 27 91 26 
27C8-.EE 26 2F C8 4C 3D 27 8C 
27D0-.28 2F A9 AO 91 26 CC 27 
27D8-.2F FO 03 C8 DO F6 AC 28 
27EQ-.2F A9 00 99 00 16 88 30 
27E8-.08 B1 26 99 00 16 88 10 
27F0.-F8 18 60 20 58 FC AO 00 
27F8-.B9 D7 2D 99 00 02 C9 8D 
2800: FO 03 C8 DO F3 20 03 BE 
2808-.C9 06 FO 04 C9 08 DO 03 
2810:20 43 2A 20 8E 2A 20 58 
281 8 : FC 20 C7 29 4C E7 20 AD 
2820:61 CO OD 62 CO 8D 6B 28 
2828-.A9 C3 8D 2C 2F A9 04 8D 
2830-.2D 2F A9 00 8D 2E 2F 8D 
2838:2F 2F A9 01 8D 30 2F 20 


2840:53 28 90 OC 2C 6B 28 30 
2848:08 20 43 2A 20 8E 2A 38 

2850:60 18 60 20 00 BF 82 00 

2858:00 AO 03 B9 93 BF 99 31 

2860:2F 88 10 F7 20 00 BF CO 

2868:29 2F 60 00 20 00 BF DI 

2870:35 2F 90 03 20 43 2A 60 

2878:20 00 BF C8 3D 2F 90 03 

2880:20 43 2A 60 AD 42 2F 8D 

2888:56 2F 20 00 BF CB 55 2F 

2890:90 03 20 43 2A 60 AD 42 

2899:2F 8D 56 2F 20 00 BF CA 

28A0-.55 2F 60 AD 42 2F 8D 5E 

28A8:2F 20 00 BF DO 5D 2F 90 

28B0 : 03 20 43 2A 60 AD 42 2F 

28B8.-8D 63 2F 20 00 BF CC 62 

28C0-.2F 60 20 58 FC AO 2D A9 

28C8.-DC 20 3A DB 20 00 BF C5 

28D0-.64 2F 90 03 20 43 2A A9 

28D8: OF 8D 68 2F AD 68 2F OA 

28E0-.0A OA OA A8 B9 00 15 8D 

28E8-.69 2F 29 OF FO 59 A2 00 

28F0 :BD 05 2E FO 06 20 ED FD 

28F8 :E8 DO F5 AD 69 2F 4 A 4 A 

2900 :4A 4A 29 07 09 BO 20 ED 

2908-.FD A2 00 BD OB 2E FO 06 

2910:20 ED FD E8 DO F5 A9 B1 

2918-.2C 69 2F 10 02 A9 B2 20 

2 920: ED FD A9 AO 20 ED FD AD 

2928:69 2F 29 OF 8D 69 2F A9 

2930-.AF 20 ED FD C8 B9 00 15 

2938:09 80 20 ED FD CE 69 2F 

2940 :D0 F2 A9 8D 20 ED FD CE 

2948:68 2F 10 90 20 8E 2A 20 

2950:58 FC 20 C7 29 4C E7 20 

2958:20 00 BF C4 43 2F 90 03 

2960:20 43 2A 60 20 58 FC 20 

2968-.C7 29 A9 07 85 25 20 22 

2 970: FC A9 00 85 24 AO 2E A9 

2978-.1B 20 3A DB A9 26 8D 27 

2980:2F A9 09 20 47 F8 E6 26 

2988:20 2C 27 BO 34 AC 28 2F 

2990-.D0 05 20 F2 2A FO D3 8C 

2998:00 17 EE 00 17 FO OC C6 

29A0-.26 B1 26 C8 99 00 17 88 

29A8-.88 10 F6 20 00 BF C6 C4 

29B0-.29 90 OE 48 20 FB DA 68 

29B8-.20 43 2 A 20 8E 2A 4C 64 

29C0-.29 4C 4F 29 01 00 17 20 

29C8-.00 BF C7 C4 29 90 03 20 

29D0.-43 2 A A9 03 85 25 20 22 

29D8:FC A2 00 BD 12 2E FO 06 

29E0-.20 ED FD E8 DO F5 AD 00 

29E8-.17 8D 3B 2F A2 01 BD 00 

29F0:17 09 80 20 ED FD E8 CE 

29F8-.00 17 DO F2 4C FB DA 2C 

2 AO 0:25 2F 30 IB AC 6B 2F B9 

2A08.-89 CO 29 08 DO 02 18 60 

2A10:A9 06 4D 28 04 8D 28 04 

2A18-.B9 88 CO 29 7F 38 60 20 

2A20-.3C 2A A9 01 20 AD 2C BO 

2A28 : 01 60 A9 06 4D 28 04 8D 

2A30.-28 04 20 3C 2A 20 AA 2C 

2A38-.29 7 F 38 60 AE 6A 2F AC 

2A40.-6B 2F 60 8D 3C 2F 20 FB 

2A48.-DA 20 FB DA A9 00 85 24 

2A50-.A9 14 85 25 20 22 FC A9 

2A58-.21 20 ED FD A9 AO 20 ED 

2A60-.FD 20 F2 2A AO FF C8 B9 

2A68-.30 2B CD 3C 2F FO 04 C9 

2A70-.00 DO F3 C8 B9 30 2B 10 

2A78-.FA 20 ED FD C8 B9 30 2B 

2A80: 30 F7 A9 AO 20 ED FD A9 

2A88:21 20 ED FD 38 60 20 FB 

2A90-.DA A9 15 85 25 20 22 FC 

2A98.-A9 00 85 24 AO 2A A9 CE 

2AA0-.20 3A DB 2C 00 CO 10 FB 

2AA8-.2C 10 CO AD 00 CO C9 OD 

2 AB 0 : FO 09 C9 IB FO OA 20 F2 

2AB8-.2A BO E8 20 C5 2A 18 60 


2AC0-.20 C5 2 A 38 60 A9 14 20 

2 AC 8 : 22 FC 20 42 FC 60 AO AO 

2 ADO: AO AO AA AA AA AO AO Cl 

2AD8:F0 FO F 5 F9 E5 FA AO F3 

2AE0-.F5 F2 AO AO BC D2 C5 D4 

2AE8 :D5 D2 CE BE AO AO AA AA 

2AF0:AA 00 98 48 8A 48 AO 40 

2AF8-.98 6A AA CA DO FD 2C 30 

2B00:C0 88 DO F4 38 68 AA 68 

2B08.-A8 60 A 9 15 20 ED FD 20 

2B10-.39 FB 20 58 FC 20 B5 28 

2B18-.A0 00 B9 30 2E FO 06 20 

2B20-.ED FD C8 DO F5 20 8E 2A 

2B28: 4C 00 20 85 25 4C 22 FC 

2B3 0 : 03 08 27 28 2F 5A 4E C5 

2B38.-F2 F2 E5 F5 F2 AO E4 A7 

2B40.-E1 E3 E3 FD F 3 AO E4 E9 

2B4 8 : F3 Fl F5 E5 06 07 45 46 

2B50:D6 EF EC F5 ED E5 AF E6 

2B5 8 : E9 E3 E8 E9 E5 F2 AO E9 

2B60-.EE F 4 F2 EF F5 F6 El E2 

2B68-.EC E5 04 2B C4 E9 F3 Fl 

2B70:F5 E5 AO FO F2 EF F4 FB 

2B78-.E7 FB 40 44 CE EF ED AO 

2B80-.E9 EE E3 EF F2 F2 E5 E3 

2B8 8 : F4 11 48 49 C4 E9 F3 Fl 

2B90-.F5 E5 AF E4 E9 F2 E5 E3 

2B98-.F4 EF F2 F9 AO F3 El F4 

2BA0:F5 F2 FB 4E DO F2 EF F4 

2BA8-.FB E7 FB AO E5 EE AO EC 

2BB0-.E5 E3 F 4 F5 F2 E5 7C D4 

2BB8-.F9 FO E5 AO D4 C5 D8 D4 

2BC0-.A0 F 3 E5 F5 EC E5 ED E5 

2BC8 :EE F 4 AE AE AE 7D D 6 EF 

2 BD 0 : EC F5 ED E5 AO F3 El F4 
2BD8-.F5 F2 FB 7F DO F2 EF C4 
2BE0-.CF D3 AO E5 F3 F4 AO E9 
2BE8 : EE E4 E9 F3 FO E5 EE F3 
2BF0-.E1 E2 EC E5 4 7 C3 E5 AO 
2BF8-.EE EF ED AO E4 E5 AO E6 
2C00-.E9 E3 E8 E9 E5 F2 AO E5 
2C08.-F8 E9 F 3 F4 E5 AO E4 FB 
2C10-.EA CO 00 C5 F2 F2 E5 F5 
2C18-.F2 AO BF BF BF 00 A9 38 
2C20-.8D 7C 04 A9 6B 8D 7D 04 
2C28-.A9 81 8D 7E 04 A9 7 C 85 
2C30-.42 85 3C A9 04 85 43 85 
2C38-.3D 85 3F A9 7E 85 3E 38 
2C40-.4C 11 C3 AO 07 98 09 CO 
2C48-.8D 4D 2C AD OC CO C9 31 
2C50-.F0 05 88 DO FO 38 60 8C 
2C58-.3A 2F 98 48 09 CO 8D B1 
2C60-.2C 8D B3 2C 8D B5 2C 8D 
2C68 :B7 2C 8D 9A 2C 8D 83 2C 
2C70-.8D 89 2C 8D 8F 2C 8D 6A 
2C78-.2F 68 OA OA OA OA 8D 6B 
2C80-.2F AD OD CO 8D BO 2C AD 
2C88-.0E CO 8D B2 2C AD 10 CO 
2C90-.8D B4 2C AO 00 8C 25 2F 
2C98.-AD 00 CO C9 2C FO 03 CE 
2CA0-.25 2F 18 60 6C B6 2C 6C 
2CA8.-B0 2C 6C B2 2C 6C B4 2C 
2CBO-. 00 00 00 00 00 00 00 00 
2CB8 :D2 CC C9 CD D6 C3 DI 8D 
2CC0: 8D BC D2 BE E5 E3 E5 F 6 
2CC8-.EF E9 F2 AO El EE EE F5 
2CD0-.E1 E9 F2 E5 AO El F 6 E5 
2CD8.-E3 AO EE DB AO E4 E5 AO 
2CE0:F4 FB EC FB FO E8 EF EE 
2CE8:E5 8D BC CC BE E5 AO F2 
2CF0-.E5 E3 E5 F 6 EF E9 F2 AO 
2CF8.-F3 El EE F3 AO EE DB AO 
2D00:E4 E5 AO F4 FB EC FB FO 
2D08 :E8 EF EE E5 8D 8D BC C9 
2D10-.BE ED FO F2 E9 ED E5 F2 
2D18.-A0 F5 EE AO E6 E9 E3 E8 
2D20-.E9 E5 F 2 8D 8D BC CD BE 
2D28:EF E4 E9 E6 E9 E5 F2 AO 
2D30-.EC E5 AO FO F2 FB E6 E9 
2D38-.F8 E5 8D 8D BC D6 BE EF 


2D40-.EC F 5 ED E5 F 3 AO E5 EE 
2D48.-A0 EC E9 E7 EE E5 8D 8D 

2D50-.BC C3 BE El F 4 El EC EF 

2D58 :E7 F5 E5 8D 8D BC DI BE 

2D 60 :F5 E9 F4 F4 E5 F2 8D AO 

2D68-.A0 AO AO AO AO AO AO AO 

2D70.-A0 AO AO AO AO AO AO AO 

2D78-.A0 AO AO AO D6 EF F 4 F2 

2D80:E5 AO E3 E8 EF E9 F8 AO 

2D88 :BA 00 Cl EE EE F5 El E9 

2D90-.F2 E5 AO C5 EC E5 E3 F4 

2D98-.F2 EF EE E9 Fl F5 E5 AO 

2DA0-.D0 EF ED A7 F3 8D 00 AO 

2DA8 :A0 D4 DF DO EF ED A7 F3 

2DB 0 : CC El AO E3 El F2 F4 E5 

2DB8-.A0 D3 F 5 FO E5 F2 D3 FB 

2DC0-.F2 E9 E5 AO E5 F3 F 4 AO 

2DC8.-EE FB E3 E5 F 3 F3 El E9 

2DD0.-F2 E5 AE AE AE 8D 00 C3 

2DD8-.C1 D4 8D 00 8D D6 EF EC 

2DE0-.F5 ED E5 F3 AO E5 EE AO 

2DE8-.EC E9 E7 EE E5 AO BA 8D 

2DF0-.AD AD AD AD AD AD AD AD 

2DF8: AD AD AD AD TW TLD AD AD 

2E00-.AD AD 8D 8D 00 DO EF F2 

2E08-.F4 AO 00 AO CC E5 E3 F4 

2E10-.A0 00 DO F2 FB E6 E9 F8 

2E18-.E5 AO 00 CE EF F5 F 6 E5 

2E20-.E1 F5 AO FO F2 FB E6 E9 

2E28-.F8 E5 AO BA 8D 8D AF 00 

2E30-.8D AO AO AO AO AO DF DF 

2E38-.DF DF DF DF DF DF DF DF 

2E4 0 : DF DF DF DF DF DF DF DF 

2E48-.DF DF DF DF DF DF DF DF 

2E5 0 : DF DF DF 8D AO AO AO AO 

2E58.-A0 20 20 20 20 20 20 20 

2E60-.20 20 20 20 14 1F 10 OF 

2E68-.0D 27 13 20 20 20 20 20 

2E70-.20 16 31 2E 30 20 8D 8D 

2E78 : 8D AO AO AO AO AO A8 E3 

2E80-.A9 AO DO EF ED A7 F3 AC 

2E88-.A0 C3 DO AC AO CA CC C2 

2E90-.A0 AO B1 B2 AF B5 AF B1 

2E98-.B9 B8 B7 8D 8D 8D 8D AO 

2EA0-.A0 AO AO AO D5 EE AO FO 

2EA8 :F2 EF E7 F2 El ED ED E5 

2EB0.-A0 DO EF ED A7 F3 AC 8D 

2EB8-.8D AO AO AO AO AO AO AO 

2EC0-.A0 AO AO AO AO AO AO AO 

2EC8.-A0 EC El AO F2 E5 F 6 F5 

2ED0-.E5 AO E4 E5 F 3 AO Cl FO 

2ED8.-F0 EC E5 8D 8D 8D AO AO 

2EE0-.A0 AO AO D2 E5 F6 F5 E5 

2EE8-.A0 DO EF ED A7 F3 AO BA 

2EF0-.A0 A8 B1 A9 AO B3 B9 AO 

2EF8-.B5 B1 AO B2 B4 AO B4 B3 

2F00-.8D 8D AO AO AO AO AO DF 

2 FO 8: DF DF DF DF DF DF DF DF 

2 Fl 0: DF DF DF DF DF DF DF DF 

2F18-.DF DF DF DF DF DF DF DF 

2F20-.DF DF DF DF 00 00 00 00 

2F28-. 00 07 00 17 00 00 00 00 

2F30-. 00 00 00 00 00 02 00 00 

2F 3 8:00 00 00 00 00 03 00 17 

2F40.-00 10 00 OA 00 17 00 00 

2F48-.00 00 00 00 00 00 00 00 

2F50-.00 00 00 00 00 04 00 00 

2F58 : 30 00 00 00 00 02 00 00 

2F 60: 00 00 01 00 02 00 00 15 

2F68-. 00 00 00 00 02 00 00 17 

2F70 : 01 00 17 23 A3 24 A4 26 

2F78-.A3 27 DD 2C BC 2D A2 2E 

2F80-.BE 2 F F 6 30 DB 31 AB 38 

2F8 8 : AF 3C AF 3D AF 3E AF 6 A 

2F90-.AA 7 A AA 7B C2 00 41 65 

2F98-.FD 42 65 FB 43 65 E5 48 

2 FAO: 65 E5 41 61 CO 43 61 El 

2FA8-.48 61 El 43 69 E9 48 69 

2FB0.-E9 43 6F EF 48 6F EF 41 

2FB8-.75 FC 48 75 F5 4 B 63 DC 

2FC0-.00 
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Œ’ro'DOS S 

version 1 .2 

Les versions de ProDOS fleurissent aussi rapidement que les 
versions de 'Système' sur le Macintosh. ProDOS 8 version 1.2 
présente des améliorations appréciables, particulièrement pour 
les possesseurs d'Apple IIgs. Si votre revue préférée n'est pas 
encore autorisée à mettre le fichier ProDOS (© oblige...) sur 
ses disquettes, les revendeurs agréés sont compétents pour le 
distribuer. 

Outre la correction de quelques bugs, la version 1.2 donne 
l'heure : l'horloge du GS est reconnue, GET_TIME fait 
maintenant son office normalement. Sur un //e, la carte horloge 
Thunderclock fonctionnera de 1986 à 1991 grâce à la nouvelle 
table de ProDOS. La version 1.1.1 se trouvait, elle, limitée à 
1987. 

Le ‘SmartPort’ est reconnu comme tel et peut piloter quatre 
volumes, contre deux avec les versions précédentes ; ils se 
verront affectés S5/D1, S5/D2, S2/D1 et S2,D2 (ceci n'est vrai 
que s'il n'y a pas de lecteurs connectés au port 2). Le cas se 
présente sur le IIgs équipé de deux Unidisks et une carte 
d'extension mémoire : on trouvera l'Unidiskl en S5/D1, 
l'Unidisk2 en S2/D2 et le disque virtuel /RAM5 en S5/D2. 

L'ordre de recherche des volumes par ONJLINE a été modifié 
et, lors d'un démarrage par recherche des ports (option SCAN 
du tableau de bord), le lecteur 140Ko connecté au port 6 
passera après le SmartPort. 

Lors du ‘boot’, ProDOS 8 cherche un éventuel ‘driver’ du 
réseau AppleTalk avant de chercher le premier fichier 
‘système’. 

L’octet Machld en $BF98 ne permet toujours pas à un 
programme de lever l'ambiguïté : est-on sur un //e ou un IIgs ? 
Bien sûr, il est posibble de se décider en testant de nombreux 
points de la mémoire, à partir de $D742 la routine horloge 
écrite en 65816 par exemple. 

On trouve dans cette version des modifications moins visibles, 
telles le masquage des interruptions durant les appels au MLI, 
l’arrivée d'une routine de lecture de blocs simple d'accès... 

La volumineuse mise à jour de Beneath Apple ProDOS pour les 
versions 1.2 et 1.3 donne l'ensemble des modifications avec un 
détail des adresses et du fonctionnement de ProDOS ; elle est 
disponible par correspondance auprès de Quality Software 
($22,50 franco). VIF à Paris, distribue également les documen- 
tations techniques qui font défaut dans les emballages. . . 




La cra-puCe 

Enquête policière 
Jeu pour Macintosh 
512Ko et Plus 

Voici encore une création de 
Jean-Louis Le Breton (res- 
ponsable et principal auteur 
de Froggy Software ) que 
nous avons beaucoup 
appréciée, bien que n'étant 
pas encore parvenus au bout 
de l'enquête à mener, et 
après être morts un nombre 
de fois respectable ! Nous 
tenons à souligner, outre la 
qualité du jeu, tant par le 
scénario que graphisme, 
trois innovations que l'on 
aimerait trouver plus 
fréquemment : 

• la disquette ne comporte 
pas de protection, la 
documentation expli- 
quant : "Ce jeu a été écrit 
en Turbo Pascal. Il n'est 
pas protégé contre la copie. 
Honte aux pirates. Vive 
Froggy." ; 

• il est possible de 
s'exprimer en ‘petit nègre' 
(ouvrir porte), ou en bon 
français (j'ouvre la porte) ; 

• une courbe de réussite 
vous indique à tout 
moment l'évolution du 
parcours. 

Enfin, vous avez la pos- 
sibilité de contacter Froggy 
Software, en cas de déprime 
totale, pour obtenir la 
solution du jeu. Il y a peu 
d'éditeurs français ; celui-ci 
étant en outre de qualité, 
profitez-en ! 

Froggy Software 

34, avenue Henri Chevreau 

75020 Paris 
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Apple est en passe de gagner son 
pari. Les Macintosh sont pris au 
sérieux et s'implantent dans les 
entreprises. L'annonce des Mac 
II (qui devraient maintenant 
commencer à être disponibles au 
compte-gouttes) a définitivement 
ouvert les yeux de nombreux 
chefs d'entreprise qui ne juraient 
jusqu'ici que par Saint MS-DOS. 
L'étonnant, c'est que cette 
consécration du Macintosh se 
produit précisément au moment 
où IBM annonce une série de 
micro-ordinateurs qui représente 
probablement le standard des cinq 
prochaines années. 

Conséquence : Apple est 
désormais assuré d'être l'un des 
survivants de la guerre de la 
micro-informatique qui n'a pas 
fini de faire des victimes. Tout 
est-il donc rose dans le ciel de 
Cupertino ? Pas forcément. Car il 
faut bien reconnaître que, malgré 
son interface imitée par tous et 
malgré sa souris et ses fenêtres, 
le Macintosh manque encore 
d'outils de développement 
“intelligents” (et notamment des 
langages type Prolog ou 
VP -Expert) qui commencent à se 
multiplier sur les ordinateurs 
MS-DOS et permettront de créer 
les programmes de demain. Il ne 
faudrait pas que ce retard se 
prolonge... 

Or, voici précisément qu' Apple 
se dégage quelque peu de l'appui 
logistique donné aux logiciels. 
Une filiale a été créée, (au départ 
à 100%, puis qui deviendra dans 
un an indépendante) qui reprend 
la plupart des activités “soft” de la 
firme à la pomme. Ainsi, 
Appleworks, MacWrite, Mac- 
Project, MacDraw, MacTerminal, 
etc. ne porteront plus éternel- 
lement le logo d'Apple. 
Officiellement, il s'agit de mettre 
tous les développeurs sur un 
même pied d'égalité pour les 
encourager à mettre au point de 
nouveaux logiciels. Selon 
certains, il s'agit aussi de 
contrebalancer la position 
dominante de Microsoft, trop liée 
à IBM. Reste à voir comment se 
traduira cette nouvelle politique 
dans les faits. Il est parallèlement 
intéressant de noter que cette 
décision avait été anticipée par 


Micro - informations 

y ean- ‘Michel Çourévitcft 


Guy Kawasaki, “évangéliste du 
logiciel” chez Apple, et 
notamment chargé de veiller à ce 
que tous les logiciels respectent 
bien l'interface Macintosh. 
Kawasaki a quitté Apple voici 
quelques mois pour diriger 
ACIUS. Derrière cette raison 
sociale aux consonnances latines 
se cache tout simplement la filiale 
américaine d'ACI, qui va vendre 
aux États-Unis un logiciel dont le 
nom de code a longtemps été 
“Silver surfer”, mais qui sera 
finalement lancé sous le nom de 
“Fourth Dimension”. Eh oui, il 
s'agit bien de notre 4D. . . 

Apple se retirerait-il complè- 
tement du logiciel ? Pas vraiment. 
Car, elle gardera dans son verger 
plusieurs secteurs. D'abord les 
langages de programmation 
précédemment évoqués, et pour 
lesquels il est temps de mettre les 
bouchées doubles. Ensuite les 
systèmes. Et notamment Unix. 
La version A/UX, qui sera 
proposée sur Macintosh n dès 
septembre (à condition de rajouter 
au micro une unité de gestion de 
la mémoire par page basée sur le 
coprocesseur Motorola 68851) 
offrira des possibilités de 
communication avancée 
(connexion possible à Ethernet, 
Appletalk et système de 
messagerie standard Unix) tout 
en ayant accès à la boîte à outils 
du Mac, ce qui permettra donc de 
développer des applications Unix 
ayant l'aspect classique des 
applications Macintosh. 
Nombreux débouchés possibles 
dans l'enseignement supérieur et 
le domaine technique. Et 
fonctionnement en multitâche. . . 

Le multitâche est encore à 
l'honneur dans le domaine des 
systèmes. Car, bien sûr, Apple se 
garde sous le coude tous les 
systèmes, finder, etc. Et voici 
précisément qu'on travaille à 
Cupertino sur un nouveau 
système d’exploitation dont le 
nom de code est encore 
“Juggler”. Et ce système destiné 


aux Mac II, serait (à terme, car 
les premières versions se 
contenteraient de fonctionner par 
interruptions) multitâche, utilisant 
lui aussi le coprocesseur 68851. 
Se présentant comme le célèbre 
“switcher”, il permettrait de faire 
tourner simultanément plusieurs 
programmes, d'effectuer des 
impressions en tâche de fond, 
tout en faisant fonctionner un 
autre logiciel. Bref, un rêve sur 
micro. Quant au “Servant” 
développé par Andy Hertzfeld, il 
ne semble finalement pas 
qu' Apple l'ait retenu. Hertzfeld 
pourrait encore le perfectionner et 
le vendre directement à tous ceux 
qui n'ont encore que des 
vulgaires Macintosh ou 
Macintosh Plus (ce qui constitue 
cependant encore la quasi-totalité 
des utilisateurs de Mac. . .). 

Chez Apple, on ne cesse de 
penser à l'avenir. Ce rôle de 
visionnaire semble particuliè- 
rement dévolu à Jean-Louis 
Gassée. Des propos qu’il a tenu 
au cours des derniers mois, on 
peut retenir : l'importance des 
RNIS (ces nouveaux réseaux de 
transmission qui permettront de 
transmettre aussi bien la voix que 
les données à des vitesses quatre 
fois supérieures à celles 
d'aujourd'hui) et des nouveaux 
moyens de stockages. 

La disquette de 800Ko ne tardera 
pas à devenir aussi obsolète que 
celle de 143Ko de l'Apple //. Un 
coup d'œil aux nouveaux médias 
permet de juger la rapidité de 
l'évolution : les disquettes 
développées par Bernouilli 
permettent déjà de stocker 20 
Méga-octets, soit l'équivalent 
d'un volumineux disque dur. 
Elles sont utilisées par la firme 
Bering dans son système Totem. 
Et la firme américaine Jasmine 
(qui avait déjà présenté un disque 
dur à 550 dollars, soit moins de 
4000,00 F), utilise des disquettes 
Kodak DTC de 20 Mégas. 
Jean-Louis Gassée a également 
laissé entendre que Bill Atkinson, 
l'auteur de MacPaint, travaillait à 
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un produit révolutionnaire 
utilisant une interface encore plus 
conviviale pour remplacer le 
clavier. Avec la mise sur le 
marché du IIgs et du Macintosh 
II, la nécessité d'une impression 
en couleurs est devenue plus 
aiguë. On travaille donc chez 
Apple d'arrache-pied à la mise au 
point d'une véritable imprimante 
couleurs (utilisant la technologie 
du jet d'encre ou celle du laser) à 
un prix restant abordable. Pas si 
facile. 

Enfin, il va falloir assurer l'avenir 
du Macintosh II. Jean-Louis 
Gassée a annoncée qu'Apple 
allait publier les spécifications du 
Nubus, permettant ainsi aux 
fabricants de cartes et aux 
développeurs de construire des 
cartes intelligentes contenant des 
ROM communiquant directement 
entre elles sans recours au 
processeur. Le Mac II a d'ailleurs 
déclenché une frénésie 
d'annonces de programmes et de 
cartes d'extension. 

Le Macintosh II 
au programme 

BrainPower, l'auteur de 
Statview - l'un des meilleurs 
programmes de statistiques pour 
le Mac - a annoncé une nouvelle 
version pour le II utilisant le 
coprocesseur 6881, l'accélérateur 
de virgulle flottante, et capable 
d'adresser 2 Gigaoctets de 
mémoire. Ce programme 
permettant des régressions à 
variables multiples, etc. sera 
vendu dès juillet pour 450 
dollars. 

Côté cartes d'extensions, c'est la 
surnatalité. Supermac Tech- 
nology, propose des cartes 
graphiques (1365 x 1024 points 
en monochrome et 1024 x 768 en 
couleurs). Tout comme AST 
Research, qui a développé des 
cartes d'extension mémoire, des 
cartes sorties, et la carte 386 
permettant une émulation 
MS-DOS. Sigma Designs, a 
développé Laserview, un 
moniteur monochrome et son 
adaptateur permettant une 
résolution de (1664 x 1200 
points) vendus 2300 dollars. 


Cette carte fonctionne également 
sur le Mac SE. Et ce n'est qu'un 
début. Au programme, pour très 
bientôt : d'autres cartes avec 
co-processeurs pour faire 
fonctionner des programmes 
MS-DOS, un déluge de cartes 
vidéo, communication ou 
mémoire, des systèmes 
d'acquisition des données, ou de 
contrôles de processus pour 
environnements scientifiques ou 
de production en usines, des 
cartes musicales, etc. 

Macintosh Plus, 
toujours du 
graphisme 

Sur le front du Macintosh Plus, la 
source des nouveautés ne se tarit 
pas encore. Voici d'abord, 
importé chez nous par 
P-Ingéniérie, l'Adobe Illus- 
trator d'Adobe (créateur du 
langage PostScript). Un véritable 
outil de création graphique, bien 
sûr basé sur le langage de 
description graphique PostScript, 
qui définit les images à l'aide de 
droites et de courbes précises et 
non de points. On peut utiliser 
comme base de travail une 
photographie numérisée, un 
croquis ou un document 
MacPaint, et ensuite la 
transformer, la reprendre, 
l'enrichir, ajouter des légendes, 
pivoter, agrandir, réfléchir, 
déformer certains détails. Le 
résultat final peut être imprimé 
sur une imprimante LaserWriter, 
ou une Linotronic 300 (définition 
de 2540 points par pouce). Pour 
les tirages couleurs, Adobe 
Ulustrator imprime séparément les 
quatre films couleurs. À côté de 
ce véritable programme graphique 
professionnel, MacPaint a 
soudain l'air d'un jouet pour 
élèves de maternelle. Si ce 
logiciel vous intéresse, Pom’s 
peut vous faire parvenir contre 
80,00 F, une disquette de 
démonstration en anglais qui en 
dit long sur les possibilités de ce 
programme vendu 5400 F HT. 
Laserware, a^ d'autre part 
développé aux États-Unis un 
autre programme graphique 
générant automatiquement du 


code PostScript et produisant des 
films séparés pour les couleurs : 
c'est Laserpaint, composé d'un 
module de dessin, d'un module 
de peinture, et d'un modèle de 
texte permettant le crénage, etc. 
Prix 495 dollars. 

Toujours de la 
PAO... 

Sur le front de la publication 
assistée par ordinateur, on ne 
désarme pas. Tandis que 
PageMaker sort sa version 2.0, 
voici qu'apparaît Scoop, de 
Target Software, un logiciel 
de mise en page (jadis connu 
sous le nom de Solo), qui promet 
de ne pas limiter ses utilisateurs 
(comme ceux de Page Maker) à 
des formats rigides et à des 
images rectangulaires, le texte 
s'enroulant automatiquement 
autour d'images même 
irrégulières. On peut aussi créer 
simultantément les textes et les 
graphiques. 

Voici encore Xpress de Quark, 
riche de nombreuses possibilités 
typographiques, de crénage de 
précision, au 1/1 00e de la largeur 
d'un caractère, d'habillage 
d'illustrations irrégulières, etc. 
Bref, un logiciel dont on reparlera 
à coup sûr. 

À remarquer, encore la version 
III de MacPublisher, de 

Boston Publishing Systems, 
que Lettraset n'a finalement pas 
adoptée, lui préférant Ready Set 
Go 3.0. Cette nouvelle version 
considérablement améliorée, et 
fonctionnant en couleurs sur le 
Macintosh II possède des niveaux 
de gris réglables par incréments 
de 10%, des possibilités de 
rotations, une césure 
automatique, etc. 

Enfin, Office Talk est à la fois 
un système de communication et 
de publication, compatible 
MS-DOS et Macintosh, qui 
permet de s'échanger des 
fichiers, de les mettre en pages, 
d'expédier du courrier 
électronique et d'imprimer les 
documents sur Linotype. Un 
système dont nous reparlerons en 
détails. 
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Amélioration de 
textes 

Voici l'Orthogiciel Plus, I 9 . 
dernière mouture du correcteur 
orthographique de Larousse. À 
remarquer que, contrairement aux 
versions précédentes, celle-ci 
fonctionne avec MacWrite 4.5, 
ou n'importe quel fichier texte. 
On peut se constituer des 
dictionnaires particuliers (c'est 
même fortement conseillé car, en 
examinant un texte, le programme 
s'arrête sur tous les noms propres 
ou termes qu'il ne connaît pas). 
Le fonctionnement est impres- 
sionnant et impeccable. Un outil 
indispensable à tous ceux qui 
veulent éviter les fautes 
d'orthographe. Un seul regret : 
que ce programme ne fonctionne 
pas au moyen d'un accessoire de 
bureau, ce qui permettrait de lui 
faire corriger un texte sans avoir à 
quitter le traitement de texte 
utilisé. Enfin, il reste toujours la 
possibilité de le faire fonctionner 
sous Switcher. . . 

Bootware Software Com- 
pany, a créé Personal 
Résumé-Writer, qui aide à 
écrire... non pas des résumés 
(gare au contre-sens), mais des 
curriculum vitæ. On tape les 
informations dans des fenêtres 
pré-définies, et le programme met 
le document en page 
conformément aux spécifications 
qui ont été précisées. Prix : 30 
dollars pour un seul nom et 595 
dollars pour un nombre illimité de 
noms (pour les professionnels du 
CV ou du recrutement). 
Powerpoint de Forethought 


Inc. permet, lui, comme More, 
de réaliser des diagrammes pour 
présentations d'organigrammes, 
cartes, etc. Les graphiques et 
textes peuvent être importés 
d'autres programmes Macintosh, 
les écrans sont imprimés sur 
LaserWriter. Prix : 395 dollars. 

Logiciels 

spécialisés 

Pour les actions, The Right 
time de TBSP est un logiciel 
graphique d'aide à la décision 
boursière donnant des indications 
sur le moment d'achat ou de 
vente. Prix : 399 dollars. Est-ce 
le bon moment pour l'acheter ? 

Ciné Mac 

Beck-Tech a créé Mac- 
Movies, un programme 
spectaculaire, permettant d'ani- 
mer des images, plus simple que 
Video Works et vendu 99 dollars. 
Mac Movies est composé de 
quatre modules, permettant de 
visualiser une série de documents 
MacPaint, de comprimer les 
documents et d'enchaîner les 
documents ensemble. On peut les 
voir sous forme de films et relier 
des films les uns aux autres. À 
noter que le Mac commence à 
envahir les studios d'Hollywood. 
On trouve ainsi des logiciels 
permettant comme ScriptWriter 
d'écrire des scripts sur deux 
colonnes (avec numération 
automatique des scènes, 
placement des dialogues, etc) et 
Story Boarder, un programme 
de dessin permettant de 


programmer les séquences d'un 
film avec les effets de transitions, 
etc. 


Ce sont les programmes 
accessoires qui rendent la vie plus 
facile. Les utilisateurs de Mac les 
connaissent bien. Voici d'abord 
des templates , ces formes 
prédéfinies qu'il ne reste plus 
qu'à remplir, ou ces programmes 
déjà mâchés. Dans cette dernière 
catégorie, TBI a réalisé avec 
l'aide de 4D un programme de 
gestion agricole. Dans la 
première, Aldus, l'éditeur de 
PageMaker, distribué en France 
par ISE Cegos, a étudié un 

Portfolio. Il s'agit de maquettes 
prédéfinies pour des mises en 
page avec PageMaker. Il ne reste 
plus qu'à insérer son texte ou ses 
images dans une maquette qui a 
été dessinée par des “pros”. Bien 
commode pour tous ceux qui 
doivent faire de l'édition 
électronique mais ne connaissent 
pas forcément l'art de la mise en 
page. 

L'impression est aussi un 
domaine de choix pour les 
utilitaires. Softstyle en est 
devenu un spécialiste. Il propose 
ainsi Laserstart Plus, 
permettant pour 145 dollars 
d'utiliser avec le Mac une 
imprimante HP Laserjet, Canon 
LBP 8 A, etc. Quant à 
Colormate, c'est un logiciel qui 
permet d'imprimer en couleurs 
des documents du Mac sur 
l'imprimante ImageWriter H. 

Un autre système plus onéreux, 
Ps Jet de Laser Connection 
permet pour 3000 dollars de 
transformer une imprimante Laser 
HP Laserjet en LaserWriter. Seul 
problème : l'ensemble revient 
alors plus cher que l'imprimante 
d'Apple... 

Quant à KroyKolor de Kroy 
Sign Systems, c'est un 
appareil permettant de colorier un 
document. On l'imprime, puis on 
le glisse dans une feuille de film 
transfert, on le place dans un 
appareil et le document se colorie. 
On peut aussi réaliser des 
documents en plusieurs couleurs, 


Universal File Conversion 

De nombreux lecteurs cherchent vainement ce 
programme chez les revendeurs français. Il est 
possible de le commander directement aux 
États-Unis ($44,95 franco, indiquer le numéro de 
carte VISA) auprès de : 

Quality Software, 21601 Marilla Street, 
Chatsworth, California 91311. 
Rappelons que ce programme permet de convertir 
les fichiers d'un système d'exploitation à l'autre : 
DOS 3.3, ProDOS/SOS, CP /Met Pascal. 


Des utilitaires 
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en découpant des morceaux de 
films transfert. La machine coûte 
995 dollars et les films 50 cents la 
page. 

A noter enfin des programmes 
qui peuvent rendre bien des 
services : la version 2 de My 
Disk Labeler de Williams & 
Macias imprime des étiquettes 
pour les disquettes éventuel- 
lement en couleurs ou sur 
LaserWriter en mêlant le 
graphique au texte. Prix : 45 
dollars. 

Et DiskEnsure et Disk- 
Express de ALSoft permettent 
de réaliser des copies de 
sauvegarde d'un disque dur, et de 
réorganiser les fichiers pour 
accélérer les accès. Pour 40 
dollars chacun. 

Côté matériel 

Remarquable le disque dur 
DataFrame 40XP de 
SuperMac. C'est tout 
simplement le plus rapide, à ce 
jour, des disques dur pour le 
Mac. Un 40 mégas pour 1900 
dollars. Puissant le Turbo Max 
de Mac Memory, un accélé- 
rateur pour le MacPlus qui le fait 
fonctionner trois fois plus vite 
avec un coprocesseur 68881 et 
1,5 Megas de mémoire pour 1300 
dollars. 

Versatile, le coprocesseur 
MS-DOS pour MacPlus de 
Dayna Mac, le créateur du 
célèbre MacCharlie, Pour 795 
dollars, on a un lecteur de 
disquettes de 360Ko, une carte 
avec 256Ko de RAM extensible, 
une copie de MS-DOS. La carte 
se branche dans un des ports 
série et permet de faire 
fonctionner les logiciels MS-DOS 
dans une fenêtre. Ingénieux, 
l'accélérateur de Peak 
Systems, permettant au Mac 
SE, grâce à une carte d'utiliser le 
processeur 68020 du Mac II. 
Même chose pour le Prodigy 
SE de Levco. Sensible, le 
Data Acquisition de GW 
Instruments, un boîtier qui 
permet de nourrir le Macintosh de 
données recueillies à l'extérieur, 
et de le transformer en 
oscilloscope, analyseur de 
spectre, etc. 
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Et l'Apple // 
alors ? 

Revoici des programmes pour ce 
bon vieil Apple //. Sa version gs 
lui a décidément donné un coup 
de jeune. Word Perfect lui a 
ainsi transposé son traitement de 
textes. Bank Street Writer de 
Scolastic Software, qui fut un 
des premiers traitements de textes 
faciles en est à sa version HI et 
comprend un dictionnaire de 
correction (en anglais seulement 
hélas). Prix : 100 dollars. 

Du graphisme 

Paintworks Plus d'Acti- 
vision est un programme de 
dessin doté d'une fonction 
d'animation pour réaliser des 
dessins animés. La brosse du 
pinceau dispose ainsi de quelque 
32 formes, on peut utiliser 16 
couleurs sur une seule image, 
choisies dans une palette de 
4096, etc. Prix : 80 dollars. 
TopDraw de Styleware est un 
mélange de MacDraw pour le 
Mac et de MacPaint, avec les 
mêmes possibilités de couleurs. 

Du son 

Music Studio d’Activision 
permet de bénéficier des capacités 
sonores du gs. On peut composer 
des partitions, utiliser 45 
instruments prédéfinis ou en créer 
de nouveaux, le tout sur 15 
canaux. Prix : 80 dollars. 

Des sciences 

Le Science Toolkit de 
Broderbund Software corres- 
pond à la boîte de chimie qu'on 
offrait jadis aux enfants. 
Différence, tout se passe sur 
l’écran, mais avec des 
instruments de mesure qui 
fournissent, par exemple, la 
température à l'ordinateur. On 
doit disposer d'un module maître. 
Ensuite il y a deux modules, l'un 
consacré à la vitesse et à l'action, 
le second à l'activité séismique. 
Prix de chacun des deux 
modules : 40 dollars. 


Du matériel 

Il n'y avait pas de raison pour 
que l'Apple // ne bénéficie pas 
d'un numériseur d'images 
comme le Mac. À l'image du 
Thunderscan, le Scannit de 
JED Design s'installe à la place 
du ruban de l'imprimante 
Imagewriter et permet de 
numériser une image. Prix : 219 
dollars. Pas de raisons non plus 
pour que l'Apple // ne puisse pas 
lire les fichiers MS-Dos. C'est 
chose faite avec la carte the 
Envoy d'Asky. Ce contrôleur 
permet d'écrire et de lire des 
disquettes au format MS-DOS. À 
condition, bien sûr, de lui relier 
un lecteur de disquettes 
compatible. Prix du contrôleur : 
180 dollars. La firme travaille à 
des utilitaires permettant de 
convertir les données de Lotus en 
ProDOS. Pas de raisons non plus 
qu'on ne puise utiliser l'Apple // 
en usine. On le sait notamment en 
France chez Peugeot. Isaac, de 
C y b o r g , est un boîtier 
d'acquisitions de données 
permettant de contrôler des 
processus, de transformer 
l'Apple en spectroscope, 
chromatographe, etc. 

Et il y avait encore moins de 
raisons de ne pas transformer 
l'Apple IIgs en un instrument 
stéréo haute fidélité. C'est fait 
avec la carte Supersonic et 
Supersonic Digitizer de 
MDIdeas. On branche cette carte 
sur des enceintes acoustiques, et 
on obtient un son stéréo. Prix : 
60 dollars et 40 dollars pour le 
numériseur. La même firme 
propose une carte d'extension de 
mémoire jusqu'à 8 Mégas 
permettant d'utiliser les 
programmes stockés en RAM et 
préservés par une pile 
rechargeable. Prix : 350 dollars 
pour la carte d'un méga et 180 
dollars pour la carte ESP 
rampack. Dans le même esprit, 
voici la carte Speedisk de Thot 
Informatique : compatible ][+, 
//e, IIgs, il s'agit d'un disque 
virtuel à mémoire permanente 
sauvegardée jusqu'à deux mois 
grâce à sa pile. De 384Ko à 1 
Méga, les transferts se font à 
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50Ko à la seconde sur le gs pour 
un prix allant de 4 à 6000,00 F 
selon capacité. 

Adresses 

Bering Industries 280 
Technology Circle Scotts Valley 
CA 95066 

Jasmine Computer Systems 
555 De Haro St, San Francisco 
CA 94107 

BrainPower, 24009 Ventrura 
Blvd, Suite 250, Calabasas, CA 
91302 

Supermac Technology, 950 
N Rengstorff Ave. Mountain 
View, CA 94043 

AST Research, 2121 Alton 
Ave Irvine, CA 92714 

Sigma Designs, 46501 
Landing Parkway, Fremont CA 
94538 

Dayna Communications, 50 
S. Main St, Sait Lake City UT 
84144 

P-Ingéniérie, 226 Bd Raspail, 
75014 Paris, Tel. : 43 21 93 36 


Laserware, PO Box 668, San 
Rafael, CA 94915 

Target Software, 14206 SW 
136th St, Miami, FL 33186 

Boston Publishing Systems, 
1260 Boylston St Boston MA 
02215 

Bootware Software Compa- 
ny, 5856 Parkmor Rd Calabasas 
CA 91302 

Forethought Inc. 250 
Sobrante Way, Sunnyvale, CA 
94086 

TBSP, 8821 Alcott St, Los 
Angeles, CA 90035 

Beck Tech, PO Box 5027 
Berkeley CA 94705 

Softstyle 7192 Kalanianaole 
Hwy Suite 205 Honolulu, Hawaï 
96825 

Laser Connection, PO Box 
850296 Mobile AL 36685 

Kroy Sign Systems 7560 East 
Redfield Road Scottsdale Arizona 
85260 

Williams & Macias PO Box 
19206 Spokane WA 99219 


ALSoft PO Box 927 Spring Tx 
77383 

Mac Memory 2480 North First 
Street, San José, CA 95131 

Peak Systems 1201 Spyglass 
Austin TX 78746 

Levco 6161 Lusk Blvd Suite C 
203 San Diego CA 92121 

GW Instruments, PO Box 
2145 Cambridge MA 02141 

Activision PO Box 7287 
Mountain View CA 94039 

Styleware 5250 Gulfton Suite 
2E Houston Texas 77081 

Broderbund Software 17 
Paul Drive San Rafael CA 94903 

JED Design 3300 Central Ave 
SE Canton OH 44707 

Asky, 4320 Stevens Creek Blvd 
Suite 287 San José CA 95129 

Cyborg 55 Chapel St Newton, 
MA 02158 

MDIdeas, 1163 Triton Drive 
Foster City CA 94404 

Thot Informatique B. P. 421 
49004 Angers Cedex Tél : 41 86 
17 74 
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Les disquettes Mae à Mac 1 

Ces disquettes contiennent des programmes ou documents ‘domaine public’ ou ‘Freeware’ : elles 
sont le résultat d'une sélection coinjointe de Pom's et du Club Apple parmi les 25 disquettes 
initialement proposées par le Club Apple. Cette réduction de 25 disquettes en 8 correspond à une 
élimination de nombreux programmes qui soit ne fonctionnaient pas sur Macintosh Plus, soit 
présentaient un intérêt pratique réduit. Vous trouverez ci-dessous un ‘catalogue’ des disquettes 
avec, pour chaque article, une brève description. 


Disquette Mac B - Polices de caractères 

Andover 12 - APL 12 - ASCII 12 - Bookman* 14/24 - Boxes 9/10/12 - Broadway 24 - Century 18/24 
Chancery 24 - Chicago by night 12 - Circus 12/18/24/36 - Cirth 48 - Cursive 12 - Cyril 12 
East Orange 12 — Elite 12 — Elvish 12 — Eon 12 — Exeter 13 — Greek 9/10/12/14/18/24 
Hollywood 12/24 — Hood River 12 — Lineal 18 — Mars 18 — London 18/36 — Long Island 12/18. 


œ Disquette Mac C - Polices de caractères 

N Helvetica Narrow* 14 - Ophir 12/24 — Palo Alto 9/12/18/24/36 - Park Avenue 18 
Philly 9/10/12/18/20/24 - Pica 12 - Princeton 12/24 — Ravenna 12/24 - Runes 12/24 - Santiago 12 
Silicon Valley 12 - Stencil 12/24 - Symbol* 9/12/18/24 - Tiny 12 - Toronto fixe 9 - Vectors 9/12 
Zapf Dingbats* 18. 

* les polices marquées d'une étoile ne sont pas celles de la ‘LaserWriter’ portant les mêmes noms. 
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Disquette Mac D - Accessoires de bureau 

ArtThief pour visualiser des images MacPaint ou FullPaint, copier des images plus grandes 
que les fenêtres de ces applications... tout ceci sans quitter l'application en cours. 

Ascii.DA pour connaître immédiatement le code ASCII d'un caractère, en décimal, en 
hexadécimal et en octal. 


FKEY à la fois accessoire et application. Il permet l'installation de ‘Mini-programmes’ 

semblables, dans l'esprit, aux accessoires de bureau, mais accessibles depuis une 
touche de fonction tout comme ‘Commande-1’ provoque l'éjection de la disquette du 
lecteur interne, ou ‘Commande-3’ la copie de l'écran sur disquette.Voici la liste des 
fonctions fournies sur la disquette Mac D : 


ASCins 

ASClip 

BigCursor 

Clippy 

ComKey 

DAKey 

FadeKey 

PanicKey 

ScreenToClip 

SetSound 

ShowKey 

Sleep 


pour saisir n'importe quel caractère, même s'il n'est pas accessible 
directement au clavier. 

idem, mais le caractère est placé dans le ‘presse-papiers’. 

la taille des curseurs est doublée. 

place dans le ‘presse-papiers’ les caractères spéciaux. 

pour lire la zone ‘commentaire’ des fichiers. Ne fonctionne pas en HFS. 

pour essayer un accessoire sans l'installer dans le menu É. 

pour ‘éteindre’ momentanément l'écran. 

le Mac se défoule à votre place ! 

place la partie de l'écran de votre choix dans le ‘presse-papiers’, 
pour régler le niveau sonore. 

‘catalogue’ des touches utilisées et de leurs fonctions, 
proche de FadeKey mais avec une 4. 


Poor Boy's 
Dec Maker 

File Tools 

Maxwell 

TheBox 


création et installation de macro-instructions. 

pour les décideurs en panne d'inspiration ; cet accessoire ludique prend les 

décisions à leur place ! 

permet diverses manipulations de fichiers. 

un jeu d'adresse et de patience. 

à la fois montre, chronomètre, et indicateur de mémoire libre. 
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Disquette Mac E - Applications 


AMAZING 

Analog Clock 

Backgammon 

Banner 

Bricks 

Canfiels 

DiskUtil 

Fast Formatter 

MouliMac 


jeu de labyrinthe, avec plusieurs niveaux de difficulté. 

horloge ‘à aiguilles’. 

célèbre jeu de société, très bien présenté. 

impression de banderoles sur papier ‘listing’. 

jeu ‘casse briques’. 

jeu de carte. 

utilitaire pour disquettes. Contrôle, etc. 

Formatage rapide de disquettes 

Conversion de fichiers au format SYLK (Excel, Multiplan, 4 ème Dimension) en 
format ‘texte’. 


Disquette Mac F - Applications 


DataFlow 
Reversi 
yapu 
Enigma 
F/DA Sorter 
File Diddler 

HexPuzzle 

Iago 


programme sophistiqué pour le dessin d'algorythmes. 

jeu de reflexion. 

utilitaire pour ImageWriter. 

superbe jeu du type Rubik cube, mais avec deux cercles croisés, 
tri alphabétique des articles dans les menus. 

manipulation de fichiers ‘texte’. Ajoute ou enlève certains caractères de 
contrôle. 

jeu sur une valeur hexadécimale, 
jeu de reflexion. 


ra " Disquette Mac G - Applications 


ResEdit 
Icon Editor 
JClock 

Life 

Missile Command 


éditeur de ressources, 
éditeur d'icônes et curseurs. 

installe l'heure dans la barre de menu. Elle y reste même si vous changez 
d'application. 

jeu de la vie extrêmement rapide écrit par l’auteur de MacPaint, 
jeu d'action. 


Disquette Mac H - Applications 


MacBILLBOARD 

MacWait 

MenuEdit 

Packlt 

Social Climber 

Solitaire 

WaveMaker 


éditeur d'affiches. Permet l'agrandissement et l'impression d'images 
MacPaint jusqu'à 32 fois. 

remplace le curseur en forme de montre par une montre animée. 

éditeur de menus. 

compacteur de fichiers 

jeu d'adresse. 

jeu de reflexion. 

éditeur de sons évolués. 


Disquette Mac I - Applications 

Snooker jeu de billard très réaliste et comportant de nombreuses options : billard 

français, américain, nombre de billes, angle d'attaque variable, etc. 

SystemVersion donne le numéro de version et la date de création du fichier système 
courant. 

Adventure of Snake jeu d'adresse. 

ThinkTank to WP conversion de fichiers ThinkTank en fichiers ‘texte’ utilisable depuis un 
logiciel de traitement de textes. 
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Disquettes 

Apple ][ 

Macintosh 


Accompagnement 

E.P.E. 5.1 - 140Ko 

200,00 F □ 

Mac Raccourci 

200,00 F □ 

A ][ 140Ko 1/2 60,00 F 

□ 

E.P.E. 5.1 - 800KO 

200,00 F □ 

MacAstuces 

200,00 F □ 

A][ 140Ko 3 

60,00 F 

□ 

Échange E.P.E.5.0/5.1 - 140Ko 

80,00 F □ 

Mac ‘A’ 

80,00 F □ 

A ][ 140Ko 4 

60,00 F 

□ 

Échange E.P.E. 5.0/5.1 - 800Ko 

80,00 F □ 

Mac ‘B’ 

80,00 F □ 

A ][ 140Ko 5 

60,00 F 

□ 

Pascal - 140Ko 

80,00 F □ 

Mac ‘C’ 

80,00 F □ 

A ][ 140Ko 6 

60,00 F 

□ 

Max (moniteur étendu) - 140Ko 

150,00 F □ 

Mac ‘D’ 

80,00 F □ 

A][ 140Ko7 

60,00 F 

□ 

Dominos -140Ko 

80,00 F □ 

Mac ‘E’ 

80,00 F □ 

A][ 140Ko 8 

60,00 F 

□ 

COGO-140Ko 

200,00 F □ 

Mac ‘F’ 

80,00 F □ 

A ][ 140Ko 9 

60,00 F 

□ 

Ludologic - 140Ko 

80,00 F □ 

Mac ‘G’ 

80,00 F □ 

A ][ 140Ko 10 

60,00 F 

□ 

Ordico-140Ko 

200,00 F □ 

Mac ‘H’ 

80,00 F □ 

A ][ 140KO 11 

60,00 F 

□ 

BananaSoft- 140Ko 

200,00 F □ 

Mac T 

80,00 F □ 

A][ 140KO 12 

60,00 F 

□ 





A][ 140Ko 13 

60,00 F 

□ 





A ir 140Ko 14 

60 00 F 

□ 





r» ji i i v i \w i ■ 

A ][ 140KO 15 

W j WV 1 

60,00 F 

□ 

Recueils Pom’s 


Mac 14/15/16 

150,00 F □ 

A ][ 140Ko 16 

60,00 F 

□ 



Mac 17 

80,00 F □ 

A ][ 140KO 17 

60,00 F 

□ 

Numéro 1 (Revues 1 à 4) 

140,00 F □ 

Mac 18 

80,00 F □ 

A ][ 140Ko 18 

60,00 F 

□ 

Disquettes A][ 140Ko 1 à 4 

200,00 F □ 

Mac 19 

80,00 F □ 

A ][ 140Ko 19 

60,00 F 

□ 

Numéro 2 (Revues 5 à 8) 

140,00 F □ 

Mac 20 

80,00 F □ 

A ][ 140Ko 20 

60,00 F 

□ 

Disquettes A ][ 140Ko 5 à 8 

200,00 F □ 

Mac 21 

80,00 F □ 

A ][ 140KO 21 

60,00 F 

□ 

Numéro 3 (Revues 9 à 12) 

140,00 F □ 

Mac 22 

80,00 F □ 

A ][ 140Ko 22 

60,00 F 

□ 

Disquettes A ][ 140Ko 9 à 12 

200,00 F □ 

Mac 23 

80,00 F □ 

A ][ 140Ko 23 

60,00 F 

□ 



Mac 24 

80,00 F □ 

A ][ 140Ko 24 

60,00 F 

□ 

reliures toilées 


Mac 25 

80,00 F □ 

A ][ 140Ko 25 

60,00 F 

□ 

pour 6 numéros, soit un an 

60,00 F □ 

Mac 26 

80,00 F □ 

A )[ 140Ko 26 

60,00 F 

□ 



Mac 27 

80,00 F □ 

A ][ 140Ko 27 

60,00 F 

□ 



Mac 28 

80,00 F □ 

A ][ 140Ko 28 

60,00 F 

□ 

Apple ][ 800Ko 3'5 numéro 29 

80,00 F □ 

Mac 29 

80,00 F □ 

A ][ 140KO 29 

60,00 F 

□ 

Apple ][ 800Ko 3'5 numéro 30 

80,00 F □ 

Mac 30 

80,00 F □ 

A ][ 140Ko 30 

60,00 F 

□ 


Revue n° 4 

35,00 F 

□ 

Revue n° 7 

35,00 F 

□ 

Revue n° 8 

35,00 F 

□ 

Revue n°10 

40,00 F 

□ 

Revue n° 1 1 

40,00 F 

□ 

Revue n° 12 

40,00 F 

□ 

Revue n° 13 

40,00 F 

□ 

Revue n° 14 

40,00 F 

□ 

Revue n° 15 

40,00 F 

□ 

Revue n°16 

40,00 F 

□ 

Revue n° 17 

40,00 F 

□ 

Revue n°18 

40,00 F 

□ 

Revue n°19 

40,00 F 

□ 

Revue n° 20 

40,00 F 

□ 

Revue n° 21 

40,00 F 

□ 

Revue n° 22 

40,00 F 

□ 

Revue n° 23 

40,00 F 

□ 

Revue n° 24 

40,00 F 

□ 

Revue n° 25 

40,00 F 

□ 

Revue n° 26 

40,00 F 

□ 

Revue n° 27 

45,00 F 

□ 

Revue n° 28 

45,00 F 

□ 

Revue n° 29 

45,00 F 

□ 

Revue n° 30 

45,00 F 

□ 


Abonnements pour six numéros à partir du , à : 


la revue seule 

225,00 F 

□ 

la revue et les disquettes Apple ][ 140Ko- 5' 1/4 

525,00 F 

□ 

la revue et les disquettes Apple ][ 800Ko -3' 1/2 

625,00 F 

□ 

la revue et les disquettes Macintosh 

625,00 F 

□ 

la revue, les disquettes Apple ][ 140Ko - 5' 1/4 et les disquettes Macintosh 

925,00 F 

□ 

la revue, les disquettes Apple ][ 800Ko - 3‘ 1/2 et les disquettes Macintosh 

1025,00 F 

□ 


’ pour les envois par avion, ajoutez 15 F par numéro et/ou par disquette soit, par exemple, 90 F pour un abonnement avec disquettes. 


§€ : : 

Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 

Nom : 

Adresse : ^ 

Règlement par : Carte Bleue/VISA □ +* Chèque bancaire □ Chèque postal □ Mandat □ 


numéro de la carte date d'expiration 

Montant ,__F Signature: 
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Câble-interface de communication Apple/Minitel 

Cette liaison - décrite dans les numéros 27 et 28 de Pom's - est indispensable pour faire fonctionner les programmes suivants : 

• MinBas pour Apple ][+, Ile, //e+, Ile et //GS* : programme permettant l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoide textes ou messages sur un serveur, ces 
messages étant préparés à l’avance avec n'importe quel programme de traitement de textes. Programme publié dans le numéro 27 
de Pom’s. 

• Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
et le stockage des messages sans sortir du programme. Programme publié dansle numéro 27 de Pom's. 

• InterPom's pour Apple ][+, Ile, //e+, Ile et //GS* : programme de téléchargement entre Apple ][ et/ou Apple ][ et Macintosh. Ce 
logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binaire, Basic...) en utilisant le Modem du Minitel. 
Programme publié dans le numéro 28 de Pom’s. 

• InterPom's pour Macintosh : même programme, mais version Macintosh. Programme publié dans le numéro 28 de Pom’s. 

• TPom’s pour Apple ][+, Ile, //e+, l/c et //GS** : programme de récupération de l'annuaire téléphonique sous la forme de fichiers 
texte. Voir page 53 de ce numéro. 

• TPom's pour Macintosh : Identique à la version Apple ][. Voir page 42 de ce numéro. 

• ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple IIGS ne convient pas. 

Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 

Macintosh Plus. 

** sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour connecter le 

port intégré du IIGS, utilisez un câble pour Macintosh Plus. 

Je désire recevoir : câble Minitel/Apple ][+, Ile, //e+, IIgs avec SSC à 225,00 F 

câble Minitel/Apple //c à 225,00 F 

câble Minitel/Macintosh 128 & 512Ko à 225,00 F 

câble Minitel/Macintosh Plus, IIgs port intégré à 225,00 F 

• pour les envois par avion, ajoutez 15 F par câble. 


Envoyez çe bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 

Nom : 

Adresse : 

Règlement par: Carte Bleue/VISA □ Chèque bancaire □ Chèque postal □ Mandat □ 

numéro de la carte date d'expiration 

Montant , _ _ F Signature : 


En plus du programme 
TPom's et des fïchers 
MDS 68000 utilisés pour 
sa réalisation, la dis- 
quette Pom’s ‘Mac 30’ 
contient l'application 
Screen Editor. Il s'agit 
d'un très puissant édi- 
teur permettant la mise 
au point de menus, 
icônes, fenêtres d'alerte, 
‘boîtes à dialogue’ et 
fenêtres de tous types. 
De plus, vous trouverez 
sur la disquette deux 
superbes images Mac 
Paint. 


Disquette Macintosh numéro 30 


Screen Editor Menus Windows Dialogs fllerts 


(Load Icon & Maskl 
|Saue Icon & MasV) 
ICopu Icon to Mask) 


iRÏqhîl llëftl füpl fDÔüjnl "'«S'âT.K.r 6r ”“ 


I Switch Icon and Maskl 


©Edit Mask 


IS<n>e Icon data ns 1e«1 file J 


I Load old Icon ] I Load old Mask 1 Ex] Heu displaul 


7FFFC000 

FFFFEOOO 

FFFFEOOO 

FFFFEOOO 

F001E000 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FOOIEOOO 

FFFFEOOO 

FFFFEOOO 


FFFFEOOO 

FFFFCOOO 

EOOOOOOO 

E33C9800 

E4AAA000 

E4AA2000 

E4AA1800 

E4AA0400 

E32A3800 

EOOOOOOO 

EOOOOOOO 

EOOOOOOO 

EOOOOOOO 

EOOOOOOO 

EOOOOOOO 

40000000 
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